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1. ABSTRACT 

THIS PROGRAM CONTAINS A SERIES OF TESTS THAT CHECK 
THE TU60 DRIVE FOR PROPER OPERATION. 

2. REQUIREMENTS 

2.1 EQUIPMENT 

PDP-11 COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE, AND A TA1 1 CASSETTE 

2.2 STORAGE 

THIS PROGRAM REQUIRES APPROX. 4K STORAGE. 

2.3 PRELIMINARY PROGRAMS 



C2TAA 
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SEQ 0003 

SiQ ©003 



C2TAB 
C2TAC 



3» 



LOADING PROCEDURE 



USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
OR A CASSETTE TAPE* 

4. STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 
SEE 5«1« 

4.2 STARTING ADDRESSES 

200 NORMAL STARTING ADDRESS 

204 SELECT DRIVE(S) BEFORE STARTING TEST 

210 SELECT DRIv£(S) mND ADDRESSES BEFORE STARTING TEST 

214 SETUP FOR MANUAL LOOPING 

220 WRITE FILE GAP FROM BOT TO EOT 

224 V^RITE CONTINOUS BLOCKS OF DATA 

230 READ CONTINOUS BLOCKS OF DATA 

234 WRITE FILE GAP AND A BLOCK OF DATA 

240 READ BLOCK OF DATA AND INTO A FILE GAP 

244 SPACE fm FILE GAP FROM BOT TO EOT 

2S© BACK SPACE FILE GAPS 
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4.3 PROGRAIVI & OPERATOR ACTION 



1 » 


LOAD PROGRAIVI INTO MEMORY (SEE SECTION 


3«) 


2. 


LOAD A WRITE ENABLED CASSETTE IN BOTH 


DRIVES 


3» 


REWIND BOTH DRIVES 




4. 


LOAD ADDRESS 200. 




5. 


SET SWITCHES (SEE SECTION 5,1 ) 




B. 


PRESS START. 




7. 


THE PROGRAM WILL LOOP & TTY BELL WILL 


RING ONCE EVERY 




PASS, IF SW<10>=0. 





*** note: if USING THE SOFTWARE SWITCH REGISTER THE 

PROGRAM WILL TYPE "SWR=XXXXXX NEW=" AFTER TYPING 
THE NAME OF THE PROGRAM. 
4.3«1 DRIVE SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF DRIVES "A" AND "B" TO BE TESTED. 
NOTE: IF LOAD MEDIUM IS CASSETTE WITH STANDARD VECTOR 
PROGRAM WILL RESPOND AS IF STARTED AT 210. 

STARTING THE PROGRAM AT 204, 210, OR 214 ALLOWS THE OPERATOR 
to' SELECT THE DRIVERS) TO BE TESTED. 

THE PROGRAM WILL TYPE "DRIVE(S)?" • 

EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING "A" AND/OR 
"B" FOLLOWED BY A CARRIAGE RETURN. 

4«3.1.1 DRIVE SELECTION EXAMPLES 

DRIVE(S)? A,B 

DRIVE(S)? AB 

DRIVE(S)? B, A 

DRIVE(S)? B 
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SEO 0005 

SEQ OOOS 



4«3«2 ADDRESS SELECTION 

STARTING THE PROGRAWI AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE "CONTROL AND STATUS" AND "DATA BUFFER" 

REGISTER ADDRESSES, THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL* 



THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
4.3»1, AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 
FOR: 

1 . BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS) 

2. VECTOR ADDRESS 

3. PRIORITY LEVEL 

AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS l^) . 
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM 
WILL TYPE THEM BACK OUT AND ASK IF THEY ARE OK AT 
WHICH TIME THE OPERATOR RESPONSES WITH A "Y" OR A 
"CARRIAGE RETURN" FOR "YES" ANYTHING ELSE IS A "NO" . 

4.3.2.1 ADDRESS SELECTION EXAMPLES 

DRIVES(S) A 
TACS? 177500 
VECTOR? 260 
PRIORITY? 6 

TACS=177500 TADB=177502 VECT0R=0002S0 PRIOR ITY=sOOO30O 
OK? 

DRIVES(S) A,B 
TACS? 470 
VECTOR? 
PRIORITY? 

TACS=177470 TADB=177472 VECTOR=000260 PRIOR I TY = 000300 
OK? 
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SEO 0006 

SEO OO0S 



4,3«3 



SUBTEST LOOPING 



THE SCOPE ROUTINE (REFER 5.2.1/ PROVIDES A IVIEANS BY 
WHICH THE OPERATOR CAN SPECIFY THE FIRST ADDRESS OF 
A SCOPE LOOP. 

THE OPERATOR TYPES A "CONTROL C" C^C) AND WHEN THE 
NEXT SCOPE STATEMENT IS EXECUTED THE PROGRAM WILL ASK 
FORI 

1 . TEST PC™ THE FIRST ADDRESS OF THE TEST (MUST BE A SCOPE) 
2. LOOP PC— THE ADDRESS TO LOOP BACK TO 



4.3.3,1 SUBTEST LOOPING EXAMPLES 



;OPERATOR TYPES ""C" 

TEST PC? 2242 
LOOP PC? 



tOPERATOR TYPES "2242" "CARRIAGE RETURN " ( CR ) « 
;OPERATOR TYPES "CR" WHICH 
; IMPLIES " LOOP PC"="TEST PC" 



^OPERATOR TYPES 
TEST PC? 3000 
LOOP PC? 3020 



;OPERATOR TYPES "3000" "CR" 
^OPERATOR TYPES "3020" "CR" 
; PROGRAM USES THIS AS THE 
; FIRST ADDRESS OF THE SCOPE 
; LOOP 



;OPERATOR TYPES "-^C" 

TEST PC? 



OPERATOR TYPES "CR" 
PROGRAM CONTINUES 
FROM THIS POINT 
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5. OPERATING PROCEDURE 

5«1 OPERATIONAL SWITCH SETTINGS 

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER^ 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 



control: 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER ( LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 

1 ) TYPE CONTROL G <^G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER,) 

3) AFTER THE ' ' NEW= ' ' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 

WITH SW<15:08>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST. BELL WILL RING 
AT COMPLETION OF A PASS. 
THE SWITCH SETTINGS ARE: 

SW<15>=1 . . .HALT ON ERROR 
SW<14>=1 . . . LOOP ON TEST 
SW<13>=1 . . . INHIBIT ERROR TYPEOUTS 
SW<1 1>=1 . . .INHIBIT ITERATIONS 
SW<10>=1 . . .RING BELL ON ERROR 
SW<10>=0. . .RING BELL ON PASS COMPLETE 
SW<09>=1 . . . LOOP ON ERROR 
SW<07>=1 . . . LOCK ON CURRENT DRIVE 
SW<06>=1 . . .DELAY AT END OF EACH FUNCTION 
SW<05>=1 . . .RUN WITHOUT INTERRUPTS 
SW<04>=1 . . . IGNORE BLOCK CHECK ERRORS 
SW<03>=1 . , .INHIBIT ' 'TA COMPARE 



SEQ 0007 

SEO 0007 
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SEQ 0008 



SEO oooa 



5e2 SUBROUTINE ABSTRACTS 

5,2»1 SCOPE 

THIS SUBROUTINE CALL (VIA AN lOT INSTRUCTION) IS PLACED BETWEEN 
EACH TEST IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
ADDRESS OF EACH TEST IN LOCATION "$LPADR" AND "SLPERR" AS IT IS 
BEING ENTERED, 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
NOTE: THIS ROUTINE CHECKS THE TTY INPUT BUFFER FOR A 
"CONTROL C" (REFER TO 4.3.3) 

TRAPCATCHER 

A " ,+2" "HALT" SEQUENCE IS REPEATED FROM LOC. TO LOC. 776 
TO CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL 
HALT AT THE DEVICE TRAP VECTOR •t-2« 

5.2.3 ERROR 

THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS. (REFER TO 6.) 

*** THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
*** IF THE PROCESSOR HALTS (BIT 15=1), OPERATOR 
CAN RESET S/W SWITCH REGISTER BY HITTING A 
"CONTROL G" <*G> BEFORE HITTING CONTINUE. 

5.2«4 TRAP 

A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION. 
FOLLOWING IS THE CALLS USED AND THE STARTING ADDRESS OF THE 
ROUTINE. 



5«2.4«1 TYPE ($TYPE) 

TYPE AN ASCiZ STRING ON THE TTY 

5.2.4.2 RDCHR (SRDCHR) 

READ A SINGLE ASCII CHARACTER FROM THE TTY 

5.2.4.3 RDLIN ($RDLIN) 

READ AN ASCII STRING FROM THE TTY 

5.2.4.4 SETLOOP (T.SETLOOP) 

SETUP TO LOOP AS PER THE TTY 
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SEQ 0009 

SEP 0009 



THE FOLLOWING "TRAP" CALLS ARE WHAT ARE USED TO PERFORIVi 
THE TESTS. 

THE ROUTINES THAT ARE CALLED IS WHAT WAKES UP THE HEART 
OF THIS PROGRAM. 

5.2«5,1 WFG (T.WFG) WRITE A FILE GAP 

5,2«5.2 WRITE (T.WRIT) WRITE A BLOCK OF DATA 

5.2,5.3 READ (THREAD) READ A BLOCK OF DATA 

5.2»5,4 BSFG (T.BSFG) BACK SPACE A FILE GAP 

S.2.5«5 BSBG (T.BSBG) BACK SPACE A BLOCK GAP 

5.2.5o6 SFFG (T.SFFG) SPACE FORWARD A FILE GAP 

5,2«5,7 SFBG (T.SFBG) SPACE FORWARD A BLOCK GAP 

S,2.S.e REWIND (T.RWND) REWIND THE TAPE TO BOT 

5«2«5.9 SELDRV (T.SELDRV) SELECT A DRIVE 

5.2.5.10 BLKCMP (T.BLKCMP) COMPARE READ AND WRITE BUFFERS 



TA11 MOTION 
C2TADD.P1 1 



TEST 



■?8 



CZTAD- 
08:34 
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SEQ 0010 



SEO 0010 



5.2.6 THE FOLLOWING SUBROUTINES ARE CALLED BY A dSR 
5.2.6.1 DOXf^D 

THIS ROUTINE WILL LOAD THE LOW BYTE OF THE "TAGS" WITH THE 
FIRST BYTE FOLLOWING THE CALL. 

WHEN THE FUNCTION IS TO BE PERFORMED WITH " INTERRUPT ENABLE"=1 

THE TA11 VECTOR IS SET TO "SERV" . WHEN THE FUCTION IS TO BE 
PERFORMED WITH "INTERRUPT ENABLE"»0 THE VECTOR IS SET TO "BADIHT^' 

NOTE SWR<5> PROVIDES OVERRIDE CAPABLITIES OF "INTERRUPT 
ENABLE"=1 . 

5.2»6«2 WAITFLAG 

THIS ROUTINE IS CALLED AFTER A COMMAND HAS BEEN SENT TO 
THE TA11« IT WAITS A PREDETERMINED AMOUNT OF TIME A 
TAKES ONE OF THREE EXITS. 

THE EXITS FOLLOW THE CALL AND ARE? 

1 . ERROR NO FLAGS OCCURRED 

2. ERROR NO INTERRUPT OCCURRED 

3. NORMAL RETURN 

5«2«6.3 FLAGS 

THIS ROUTINE IS CALLED TO DETERMINE WHAT FLAGS ARE UP. 
THIS ROUTINE WILL TAKE ONE OF FOUR RETURNS DEPENDING ON 

THE FLAGSe 

THE RETURNS FOLLOW THE CALL AND ARE: 

1 . "TRANFER REQUEST"=0 AND "READY^^O 

2. "TRANFER RE0UEST"=1 

3. "READY"=1 AND "ERROR"sO 

4. "READY"=1 AND "ERR0R"=1 

DOXRC 

THIS ROUTINE IS USED TO CALCULATE "CRC" . 

IT WORKS ON ONE BYTE AT A TIML WHICH MUST BE IN RO WHEN 

CALLED. 

5=2.6,4 A20CT 



THIS ROUTINE CHANGES AN ASCII STRING TO AN OCTAL NUMBER^ 
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SEQ 0011 



SEQ 0011 



5.2«6«5 GETDRV 

THIS ROUTINE IS USED TO ASK THE OPERATOR WHICH DRIVE(S) 
ARE TO BE TESTED 

5.2«6»6 ASKADR 

THIS ROUTINE IS USED TO INPUT THE ADDRESSES FOR THE "TAGS" , 
"TADB" AND THE VECTOR AND THE PRIORITY LEVEL TO USE. 

5.2.6.7 TYPERR 

THIS ROUTINE IS USED TO TYPE OUT THE "ERROR" DATA 

5«2,6*8 EXAM 

THIS ROUTINE IS USED TO DETERMINE WHICH DRIVE(S) ARE AVAILABLE 
FOR TESTING. 

5.2.7 THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENTS TO 

THE TU60. BEFORE USING ANY OF THEM LOAD AND START 214. 

5,2«7«1 WFGSUB 

WRITE FILE GAPS FROM "BOT" TO "EOT" 
START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND 
THE "WRITE DELAY MONO" . 

5«2«7,2 WRTSUB 

WRITE CONTINUOUS BLOCKS OF DATA 
START AT 224 

THE PROGRAM WILL HALT THREE(3) TIMES 

AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

HALT 1 SWR<7:0> = NUMBER OF BYTES PER BLOCK 

HALT 2 SWR<7:0> = PATTERN DESIRED 

HALT 3 - — SWR<15:0> = OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 
** IF USING SOFTWARE SWITCH REGISTER, AFTER 

EACH HALT OPERATOR WILL BE PROMPTED 

FOR THE VALUE WITH "SWR=XXXXXX NEW=" 

5.2.7.3 RDSUB 

READ CONTINUOUS BLOCKS OF DATA 
START AT 230 

THIS ROUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO" 
AND THE "THRESHOLD POT" 
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WGPBLK 

WRITE A FILE GAP AND A BLOCK Gr DATA FROfVI BOT TO ECT 
START AT 234 

THE PROGRAM WILL HALT THREE (3) TIfVlES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT 1 ™ SWR<7:0> = NUMBER OF BYTES PER BLOCK 
HALT 2 — Sm<7iQ> ^ PATTER'J DESIRED 
HALT 3 ™ SWR<15:0> = OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP IVIONO^ 
AND THE "GAP TIME MONO" . 

IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR^XXXXXX NEW='' 

5»2«7.5 RGBLK 

READ A BLOCK OF DATA AND A FILE GAP 
START AT 240 

THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A 
IT CAN BE USED TO ADJUST THE ''SIGNAL MON"« THE 
AND THE "TAPE BLANK MONO". 

5.2.7*6 SFFGSB 

SPACE FORWARD FILE GAP FROfVl "BOT" TO "EOT" 
START AT 244 

THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
SPACE FOWARD (TAPE BLANK fVIONO CAN BE ADJUSTED). OR AFTER READ OR 
WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
(SIGNAL MONO CAN BE CHECKED). 

5.2.7.7 BSFGSB 

BACK SPACE FILE GAP 
■ START AT 250 

THIS ROUTINE- CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO" « 



FILE GAP" ROUTINE 
THRESHOLD POT" 
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SEO 0013 



SEO 0013 



6. ERRORS 

THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM. WHEN AN ERROR IS ENCOUNTERED THE CALL TO 
THE ERROR (ERROR) ROUTINE IS MADE AND IF SW<13> IS NOT 
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE 
TYPED* EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING: 

1 . THE FUNCTION BEING PERFORM 

2. AN ERROR MESSAGE 

3. A DATA HEADER 

4. A DATA STRING 

REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 

7. RESTRICTIONS 

BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED IN THE DRIVE(S) TO BE TESTED AND IS WRITE 
ENABLED. 

8. MISCELLANEOUS 

8.1 EXECUTION TIME 

THE FIRST PASS TAKES APPROXIMATELY 4 MINUTES ALL 
SUBSEQUENT PASSES TAKE APPOXIMATELY 8 MINUTES 

8.2 STACK POINTER 

STACK IS INITIALLY SET TO 1 100. 

8.3 PASS COUNT 

A PROGRAM PASS THRU COUNT IS KEPT IN "$PASS" . 

8.4 ITERATIONS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM FULL. 
(ONE PER DRIVE) , ITERATIONS. 

B.S SPECIAL REGISTERS 

R4 AND R5 ARE RESERVED FOR "TACS" AND "TADB" THROUGH 
OUT THE PROGRAM. 
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SEO 0014 

SEO 0014 



9, PROGRAM DESCRIPTION 

THIS PROGRAM IS A SEQUENCE OF INDEPENDENT TESTS THAT 
CHECK THE TA1 1 FOR PROPER OPERATION. 

EACH TESTS IS A SERIES OF "TRAP" CALLS TO ROUTINES THAT PERFORM 
THE DESIRED FUNCTION. 

THE PROGRAM STARTS WITH A SIMPLE SEQUENCE OF FUNCTIONS 

AND BUILTS IN COMPLEXITY INTRODUCING ONE NEW FUNCTION 

AT A TIME, UNTIL ALL LEGAL COMBINATIONS HAVE BEEN PERFORMED. 

THEN, MULTI SPACING IS PERFORMED TO TRY AND GENERATE 

NOISE THAT MIGHT CAUSE PROBLEMS DUE TO SPEED CHANGES AND 

FREQUENT START STOPPING. 



582 .TITLE TA1 1 MOTION TEST C2TAD-D 

583 ;+COPYRIGHT (C) 1973,1978 

584 ;*DIGITAL EQUIPMENT CORP. 

585 ;*MAYNARD, MASS. 01754 
586 

587 ;*PROGRAM BY JIM LACEY 

588 I't^ 

589 ;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

590 ;*PACKAGE ( MA INDEC-1 1 -DZQAC-C3 ) . JAN 19, 1977. 

591 ;* 

595 .REM! 

596 

597 GENERAL INFORMATION ABOUT THE TA1 1/TU60 CASSETTE 

598 

599 ADDRESS MNEMONIC DESCRIPTION 

600 ~ ■ 

601 

602 

603 777500 TAGS CONTROL AND STATUS REGISTER 

604 777502 TADB DATA BUFFER REGISTER 

605 260 TAVEC INTERRUPT VECTOR 
606 

607 

608 TAGS REGISTER DESCRIPTION 

610 INIT 

61 1 BIT NAME STATE READ AND/OR WRITE? 
613 



614 


15 


ERROR 


? 


READ ONLY 


615 


14 


BLOCK CHECK ERROR 





READ ONLY 


616 


13 


CLEAR LEADER 


? 


READ ONLY 


617 


12 


WRITE LOCK 


? 


READ ONLY 


618 


11 


FILE GAP 





READ ONLY 


619 


10 


TIMING ERROR 





READ ONLY 
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SEQ 0015 

SEQ 001S 



620 


09 


OFF LINE 


? 


READ ONLY 


621 


08 


UNIT SELECT 





RF An /WR T TF 


622 


07 


TRANSFER REQUEST 





READ ONLY 


623 


06 


INTERRUPT ENABLE 





RFAn/WRITF 


624 


05 


READY 


1 


READ ONLY 


625 


04 


ILBS 





DC An /wo T TF 


626 


03 


FUNCTION BIT 02 





DC An /WR T TE 


527 


02 


FUNCTION BIT 01 





READ/WRITE 


528 


01 


FUNCTION BIT 00 





READ/WRITE 


529 




0=WR!TE-FILE-GAP 






630 




1=WRITE 






631 




2=READ 






632 




3=BACK SPACE FILE GAP 






633 




4=BACK SPACE BLOCK GAP 






634 




5=SPACE FORWARD FILE GAP 




635 




6=SPACE FORWARD BLOCK 


GAP 




636 




7=REWIND 






637 


00 


GO BIT 





WRITE ONLY! 
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SEQ 0016 

Sm 0018 



638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 



00001 1 
000012 
000015 
000200 
177776 

177774 
177772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
000140 
000200 
000240 



SBTTL OPERATIONAL SWITCH SETTINGS 



USE 



15 
14 
13 
11 
10 
9 
7 
6 
5 
4 
3 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOCK ON CURRENT DRIVE 

DELAY AT END OF EACH FUNCTION 

RUN WITHOUT INTERRUPTS 

IGNORE BLOCK CHECK ERRORS 

INHIBIT DATA COMPARE 



.SBTTL BASIC DEFINITIONS 



;*INIT1AL ADDRESS OF THE 


STACK POINTER *** 1100 *** 


STACK^t 


1100 




.EOUIV 


EMT, ERROR 


: BASIC DEFINITION OF ERROR 


.EOUIV 


lOT, SCOPE 


; BASIC DEFINITION OF SCOPE 


•.^MISCELLANEOUS DEFINITIONS 


HT= 


11 


jCODE FOR HORIZONTAL TAB 


LF= 


12 


;CODE FOR LINE FEED 


CR= 


15 


;CODE FOR CARRIAGE RETURN 


CRLFs: 


200 


;CODE FOR CARRIAGE RETURN- 


PS= 


177776 


; PROCESSOR STATUS WORD 


.EQUIV 


PS.PStef 




STKLMTa 


177774 


;STACK LIMIT REGISTER 


PIRO» 


177772 


•.PROGRAM INTERRUPT REQUEST 


DSWR* 


177570 


{HARDWARE SWITCH REGISTER 


DDISPs! 


177570 


{HARDWARE DISPLAY REGISTER 


;«GENERAL PURPOSE REGISTER DEFINITIONS 


R0= 


%0 


{GENERAL REGISTER 


R1 = 


%1 


{GENERAL REGISTER 


R2» 


%2 


{GENERAL REGISTER 


R3= 


%3 


{GENERAL REGISTER 


R4= 


%4 


{GENERAL REGISTER 


R5= 


%5 


{GENERAL REGISTER 


R6» 


%6 


{GENERAL REGISTER 


R7= 


%7 


{GENERAL REGISTER 


SP= 


%6 


{STACK POINTER 


PC= 


%7 


{PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 


PRO* 





{PRIORITY LEVEL 


PR1« 


40 


{PRIORITY LEVEL 1 


PR2a 


100 


{PRIORITY LEVEL 2 


PR3« 


140 


{PRIORITY LEVEL 3 


PR4« 


200 


{PRIORITY LEVEL 4 


PR5« 


240 


{PRIORITY LEVEL 5 
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SEQ 001 f 



694 


000300 


PR6= 


300 


695 


000340 


PR7 = 


340 


696 








697 




{*■' SWITCH REGISTER 


698 


100000 


SW15» 


100000 


699 


040000 


SW14« 


40000 


700 


020000 


SW13» 


20000 


701 


010000 


SW12» 


10000 


702 


004000 


SW1 1» 


4000 


703 


002000 


SWiOs 


2000 


704 


001000 


SW09» 


1000 


705 


000400 


SW08= 


400 


706 


000200 


SW07= 


200 


707 


000100 


SW06= 


100 


708 


000040 


SW05= 


40 


709 


000020 


SW04= 


20 


710 


000010 


SW03= 


10 


711 


000004 


SW02« 


4 


712 


000002 


SW01 = 


2 


713 


000001 


SWOOs 


1 


714 




.EQUIV 


swog.swg 


715 




.EOUIV 


SWOB , SW8 


716 




.EQUIV 


SW07,SW7 


717 




.EQUIV 


SW06,SW6 


718 




.EQUIV 


SW05,SW5 


719 




•EQUIV 


SW04,SW4 


720 




.EQUIV 


SW03,SW3 


721 




.EQUIV 


SW02,SW2 


722 




.EQUIV 


SW01 ,SW1 


723 




.EQUIV 


SWOO.SWO 


724 








725 




;*DATA 


BIT DEFINIT 


726 


100000 


BIT15a 


100000 


727 


040000 


BIT14^ 


40000 


728 


020000 


BIT13SS 


20000 


729 


01 0000 


BIT12" 


10000 


730 


004000 


BIT1 1« 


4000 


731 


002000 


BIT10* 


2000 


732 


001000 


BIT09« 


1000 


733 


000400 


BIT08« 


400 


734 


000200 


BIT07a 


200 


735 


000100 


81106=. 


100 


736 


000040 


BIT05«! 


40 


737 


000020 


BIT04a 


20 


738 


000010 


BIT03= 


10 


739 


000004 


BIT02« 


4 


740 


000002 


BIT01« 


2 


741 


000001 


BIT00« 


1 


742 




.EQUIV 


BIT09,BIT9 


743 




.EQUIV 


BITOB.BITB 


744 




.EQUIV 


BIT07.BIT7 


745 




.EQUIV 


BIT06.BIT6 


746 




.EQUIV 


BITOS.BITS 


747 




.EQUIV 


BIT04,BIT4 


748 




.EQUIV 


BIT03,BIT3 


749 




.EQUIV 


BIT02.BIT2 



{ {PRIORITY LEVEL 6 
{ {PRIORITY LEVEL 7 



SWITCH DEFINITIONS 
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SEQ 0018 



750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 



000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
000016 



000004 
000005 



.EOUIV BITOI.BITI 
.EOUIV BITOO.BITO 



;*BASIC 

ERRVEC» 

RESVEC= 

TBITVEC' 

TRTVEC= 

BPTVECs 

IOTVEC= 

PWRVECs 

EMTVEC= 

TRAPVEC= 

TKVEC= 

TPVEC= 

PIROVEC= 



"CPU" TRAP VECTOR ADDRESSES 



10 
14 
14 
14 
20 
24 
30 
34 
60 
64 
240 



TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 

^Ij!*************:};****!!!**!!.*;* ************** 



I fSHifif^siiijfMiiTAi 1 FUNCTIONS###4'#i5'###* 

XWFG= ; WRITE FILE GAP FUNCTION 

XWRITE« 2 IWRITE FUNCTION 

XREAD« 4 ;READ FUNCTION 

XBSFG* 6 ;BACK SPACE FILE GAP FUNCTION 

XBSBG* 10 ;BACK SPACE BLOCK GAP FUNCTION 

XSFFGs 12 ; SPACE FWD FILE GAP FUNCTION 

XSFBGa 14 5 SPACE FWD BLOCK GAP FUNCTION 

XRWND= 16 ; REWIND FUNCTION 



ERRORS BIT15 
CRCERRs BIT14 
LEADER* B1T13 
WRTL0CK=BIT12 
FGAP= BIT11 
TIMERR= BIT10 
OFFLINE=BIT09 
UNITS BIT08 
TR.REO« BIT07 
INT.EN= BIT06 
READYb BIT05 



BIT ASSIGNMENT#^#^##jS>i|)j¥# 



ILBS = 
FUNC2i 
FUNCIi 
FUNCO> 
G0= 
FUNCTION: 



BIT04 
BIT03 
BIT02 
BIT01 
BITOO 



FUNC2+FUNC1+FUNC0 



;////////////////////////////////////////////////////////////////////// 
;////////////////////////////////////////////////////////////////////// 

;SPECIAL REGISTERS 

TACS« %A ;R4 IS USED AS A POINTER TO THE TACS REGISTER 

TADB= %5 ;R5 IS USED AS A POINTER TO THE TADB REGISTER. 

;////////////////////////////////////////////////////////////////////// 
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SEQ 0019 



SEQ 0019 



804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 



0001 74 
000176 

000200 
000204 
000210 
000214 
000220 
000224 
000230 
000234 
000240 
000244 
000250 



000174 

000000 
000000 

000137 
000137 
000137 
000137 
000137 
000137 
000137 
000137 
000137 
000137 
000137 



.SBTTL TRAP CATCHER 

.=0 

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A " .+2, HALT" 

;*SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

;* LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

. = 174 

dispreg: .word 
swreg: .word 

.SBTTL STARTING ADDRESS(ES) 



;; SOFTWARE DISPLAY REGISTER 
; : SOFTWARE SWITCH REGISTER 



; JUMP TO STARTING ADDRESS OF PROGRAM 

; SELECT DRIVE(SJ BEFORE STARTING TEST 
jSELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 
; SETUP FOR MANUAL LOOPING 
; WRITE FILE GAP FROM BOT TO EOT 
-.WRITE CONTINUOUS BLOCKS OF DATA 
•.READ CONTINUOUS BLOCKS OF DATA 
; WRITE FILE GAP AND A BLOCK OF DATA 
JREAD BLOCK OF DATA AND INTO A FILE GAP 
; SPACE FWD FILE GAP FROM BOT TO EOT 
;BACK SPACE FILE GAPS 
^i?^**)*****************************^ ************ **************** 



001450 


UMP 


@/!^BEGIN1 


001502 


JMP 


9#BEGIN2 


001510 


UMP 


BEG INS 


002036 


UMP 


i>#BEGINX 


012364 


UMP 


9#WFGSUB 


012440 


UMP 


@#WRTSUB 


012522 


UMP 


©ifRDSUB 


012610 


UMP 


0#WGPBLK 


012702 


UMP 


is#RGPBLK 


013000 


UMP 


@#SFFGSB 


013054 


UMP 


@#BSFGSB 
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SEQ 0030 



SEO 0020 



827 






.SBTTL 


COMMON 


TAGS 




828 














829 






. 




830 






;«THIS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


831 






;*USED 


IN THE PROGRAM. 




832 














833 




001 100 




.xi 100 






834 


001 100 




SCMTAG: 






; START OF COMMON TAGS 


835 


001 1 00 


000000 


SPASS: 


.WORD 





; CONTAINS PASS COUNT 


836 


001102 


000 


STSTNM: 


.BYTE 





•.CONTAINS THE TEST NUMBER 


837 


001 1 03 


000 


SERFLG: 


. BYTE 





; CONTAINS ERROR FLAG 


838 


001 104 


000000 


SICNT: 


.WORD 





;CONTAINS SUBTEST ITERATION COUNT 


839 


001 106 


000000 


SLPADR: 


.WORD 





; CONTAINS SCOPE LOOP ADDRESS 


840 


001 1 10 


000000 


SLPERR: 


.WORD 





; CONTAINS SCOPE RETURN FOR ERRORS 


841 


001 1 12 


000000 


SERTTL: 


.WORD 





J CONTAINS TOTAL ERRORS DETECTED 


842 


001 1 14 


000 


SITEMB: 


.BYTE 





; CONTAINS ITEM CONTROL BYTE 


843 


0011 15 


001 


SERMAX: 


.BYTE 


1 


; CONTAINS MAX. ERRORS PER TEST 


844 


001 1 16 


000000 


SERRPC: 


.WORD 





JCONTAINS PC OF LAST ERROR INSTRUCTION 


845 


001 120 


000000 


SGOADR: 


.WORD 





; CONTAINS ADDRESS OF 'GOOD' DATA 


846 


001 122 


000000 


SBDADR: 


.WORD 





; CONTAINS ADDRESS OF 'SAD' DATA 


847 


001 124 


000000 


SGDDAT : 


.WORD 





{CONTAINS 'GOOD' DATA 


848 


001126 


000000 


Sbddat: 


.WORD 





JCONTAINS 'BAD' DATA 


849 


001130 


000000 




.WORD 





; RESERVED— NOT TO BE USED 


850 


001 132 


000000 




.WORD 







851 


001134 


000 


SAUTOB: 


• BYTE 





; AUTOMATIC MODE INDICATOR 


852 


001135 


000 


sintag: 


.BYTE 


i; INTERRUPT MODE INDICATOR 


853 


001136 


000000 




.WORD 







854 


001140 


177570 


SWR: 


.WORD 


DSWR 


; ADDRESS OF SWITCH REGISTER 


855 


001142 


177570 


DISPLAY 


: .WORD 


DDISP 


JADDRESS OF DISPLAY REGISTER 


856 


001 144 


177560 


STKS: 


177560 




;TTY KBD STATUS 


857 


001 146 


177562 


$TKB: 


177562 




•,TTY KBD BUFFER 


858 


001150 


177564 


$TPS: 


177564 




;TTY PRINTER STATUS REG. ADDRESS 


859 


001152 


177566 


$TPB: 


177566 




JTTY PRINTER BUFFER REG. ADDRESS 


860 


001154 


000 


SNULL: 


.BYTE 





; CONTAINS NULL CHARACTER FOR FILLS 


861 


001155 


002 


SFILLS: 


.BYTE 


2 


; CONTAINS fi OF FILLER CHARACTERS REQUH 


862 


001156 


012 


SFILLC: 


.BYTE 


IS 


•.INSERT FILL CHARS. AFTER A "LINE FEED 


863 


001157 


000 


STPFLG: 


.BYTE 





{"TERMINAL AVAILABLE" FLAG { BIT<07>>«0b1 


864 


001160 


000000 


$REGAD: 


.WORD 





JCONTAINS THE ADDRESS FROM 


865 












J WHICH (SREGO) WAS OBTAINED 


866 


001162 


000000 


$REGO: 


.WORD 





JCONTAINS ( ($REGAO}1-0) 


867 


001164 


000000 


$REG1 : 


.WORD 





JCONTAINS C($REGAD)+2) 


868 


001166 


000000 


STMPO: 


.WORD 





JUSER DEFINED 


869 


001 1 70 


000000 


STIMES: 







jMAX. NUMBER OF ITERATIONS 


870 


001172 


000000 


$ESCAPE:0 




J ESCAPE ON ERROR ADDRESS 


871 


001174 


177607 000377 


$BE.l: 


.ASCIZ 


<207><377><377> 


J CODE FOR BELL 


872 


001200 


077 


$QUES: 


.ASCII 


/?/ 


J QUESTION MARK 


873 


001201 


015 


SCRlF: 


.ASCII 


<15> 


J CARRIAGE RETURN 


874 


001202 


000012 


$LF: 


.ASCIZ 


<12> 


J LINE FEED 


875 






• 




876 


001204 


000000 


SAVPC: 


.WORD 





{STORAGE FOR THE PC 


877 


001206 


000000 


Bytnum: 


.WORD 





J THE NUMBER OF BYTES "READ" OR 


878 


001210 


000000 


RCRCO: 


.WORD 





{CRC CALCULATED FOR "WRITE" 


879 


001212 


000000 


RCRC1 : 


.WORD 





JCRC CALCULATED FOR "READ" 


880 


001214 


000000 


RCRC2: 


.WORD 





I CRC FROM THE TA11 FOR "READ" 


881 

882 


001216 


000001 


$MXCNT! 


1 




J^AX. NUMBER OF ITERATIONS 



TA1 1 MOTION TEST 
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SEQ 0031 



CZTADD 


P11 23-MAR-78 


08:34 


COMMON 


TAGS 


883 


001220 


177500 




tacsl: 


177500 


884 


001222 


177501 




TaCSH: 


177501 


885 


001224 


177502 




taDBl: 


177502 


886 


001226 


177503 




tadbh: 


177503 


887 


001230 


000260 


000262 


TAVEC: 


260 , 262 


888 


001234 


000300 




TAPRIO: 


300 


889 


001236 


000000 




DRIVE: 





890 


001240 


000000 


000000 


DRVKEY: 


0,0 


891 


001244 


001240 




DRVPNT: 


DRVKEY 


892 


001246 


000000 




ASKKEY: 





893 


001250 


177777 


000000 


CURDRV: 


-1 ,0 


894 


001254 


000000 




WAITKEY 




895 


001256 


001260 




rwdflg: 


RWDA 


896 


001260 


000000 




RWDA: 





897 


001262 


000000 




RWDB: 





898 


001264 


000000 


000000 


stall: 


0,0 



{LOW BYTE ADDRESS OF TACS 
JHIGH BYTE ADDRESS OF TACS 
J LOW BYTE ADDRESS OF TADB 
J HIGH BYTE ADDRESS OF TADB 
jTAII VECTOR ADDRESS 
JTA11 BR LEVEL 6 
J NEXT DRIVE TO TEST 
{DRIVE SELECT KEY! 



jCURRENT DRIVE BEING TESTED 
J WAIT ON INTERRUPT KEY 
J REWIND FLAG POINTER 
J DRIVE "A- REWIND FLAG 
J DRIVE "B" REWIND FLAG 
{STALL TIME 



SEQ 0031 



TA11 MOTION TEST C2TAD-D MACY11 

CZTADD.P11 23-MAR-78 08:34 

899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
91 1 
912 

913 001270 

914 
915 
916 

917 001270 01 5540 

918 001272 016102 
919 

920 001274 015044 

921 001276 000000 
922 

923 

924 001300 015566 

925 001302 016102 
926 

927 001304 01 5044 

928 001306 000000 

929 
930 

931 001310 015615 

932 001312 01 6102 

933 

934 001314 01 5044 

935 001316 000000 

936 
937 

938 001320 015633 

939 001322 016102 

940 

941 001324 015044 

942 001326 000000 

943 
944 

945 001330 015654 

946 001332 016102 

947 

948 001334 01 5044 

949 001336 000000 

950 
951 

952 001340 01 5705 

953 001342 016102 

954 
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ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

♦LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

*N0TE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC) . 

*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
DH 
OT 
DF 



SERRTB: 
jNOTE: 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



ALL NUMBERS WILL BE TYPED AS 6 DIGIT OCTAL NUMBERS 



1 

EMI 

DH1 

DTI 
Q 

2 

EM2 

DH1 

DTI 


3 

EM3 
DH1 

DTI 


4 

EM4 
DH1 

DTI 


S 

EMS 
DH1 

DTI 


6 

EM6 

DH1 



; IMPROPER FLAG SETTING 
;TEST ERROR 
; PC PC TACS 

;SAVPC SERRPC $REGO 



TAOB 
SREGI 



; IMPROPER FLAG OCCURRED 
JTEST ERROR 

;PC PC TACS TAOB 

;SAVPC SERRPC SREGO SREGI 



'.MISSED A FLAG 
{TEST ERROR 

IPC PC TACS TADB 

;SAVPC SERRPC SREGO SREGI 



•.INTERRUPT FAILED 
5 TEST ERROR 

;PC PC TACS TADB 

;SAVPC SERRPC SREGO SREGI 



{PREMATURE READY OCCURRED 
{TEST ERROR 

;PC PC TACS TADB 

ISAVPC SERRPC SREGO SREGI 



{DIDN'T STOP IN A FILE GAP 
} TEST ERROR 

{PC PC TACS TADB 



TA1 1 MOTION TEST CZTAD-D MACY11 30A( 1052) 23-MAR-7a 08:36 PAGE 23 Si0 0023 



CZTADD 


PI 1 23-MAR-78 08:34 


ERROR 


POINTER 


TABLE 










955 


001344 


01 5044 




DTI 


{SAVPC SERRPC 


SREGO 


SREGI 






956 


001346 


000000 

















957 




















958 






{ITEM 


7 












959 


001350 


01 5737 




EM7 


{DIDN'T STOP ON 


CLEAR LEADER 






960 


001352 


01 6102 




DH1 


{TEST ERROR 










961 










{PC PC 


TACS 


TADB 






962 


001354 


01 5044 




DTI 


{SAVPC SERRPC 


SREGO 


SREGI 






963 


001356 


000000 

















964 




















965 






{ITEM 


10 












966 


001360 


01 5773 




EM10 


{BAD DATA READ 










967 


001362 


016162 




DH2 


{TEST ERROR 




EXPT'D 


RCV'D 


BYTE 


968 










{PC PC 


TACS 


DATA 


DATA 


NUMBER 


969 


001364 


01 5056 




DT2 


{SAVPC SERRPC 


SREGO 


SGDDAT 


SBODAT 


BYTNUM 


970 


001366 


000000 

















971 




















972 






{ITEM 


11 












973 


001370 


01 601 1 




EM1 1 


{ILLEGAL BUFFER 










974 


001372 


01 6601 




DH5 


{TEST ERROR 










975 










{PC PC 


TACS 








976 


001374 


015126 




DT5 


{SAVPC SERRPC 


SREGO 








977 


001376 


000000 

















978 




















979 






{ITEM 


12 












980 


001400 


016035 




EMI 2 


{CRC ERROR 










981 


001402 


01 6323 




DH3 


{TEST ERROR 




WRITE 


READ 


TU60 


982 










{PC PC 


TACS 


CRC 


CRC 


CRC 


983 


001404 


015074 




DT3 


- {SAVPC SERRPC 


SREGO 


RCRCO 


RCRC1 


RCRC2 


984 


001406 


000000 

















985 




















986 






{ITEM 


13 












987 


001410 


016047 




EMI 3 


{SHORT RECORD 










988 


001412 


01 6461 




DH4 


{TEST ERROR 






BYTES 




989 










{PC PC 


TACS 


TADB 


LEFT 




990 


001414 


01 51 12 




DT4 


{SAVPC SERRPC 


SREGO 


SREGI 


STMPO 




991 


001416 


000000 

















992 




















993 






{ITEM 


14 












994 


001420 


016064 




El/!14 


{BAD INTERRUPT 










995 


001422 


01 6601 




DH5 


{TEST ERROR 










996 










{PC PC 


TACS 








997 


001424 


01 5126 




DT5 


{SAVPC SERRPC 


SREGO 








998 


001426 


000000 

















999 




















1000 


001430 




ITEMS2 




{ITEMS 201-202 










1001 




















1002 


001430 


01 6664 




EM201 


{TA11 FAILED TO 


RESPOND 








1003 


001432 


01 6736 




DH201 


{ PC TACS 










1004 


001434 


01 6652 




DT201 


{SERRPC TACS 










1005 


001436 


000000 







{BOTH NUMBERS ARE TYPED 


AS OCTAL NUMBERS 


1006 




















1007 


001440 


01 6713 




EM202 


{NO DRIVES AVAILABLE 








1008 


001442 


016753 




DH202 


{PC 










1009 


001444 


016660 




0T2G2 


{SEriRPC 










1010 


001446 


000000 
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SEO 0024 



SEC? 00S4 



1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
'1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 



001450 
001452 
001460 
001466 
001470 
001476 
001500 
001502 
001506 
001510 
001514 
001516 
001522 



001522 
001526 
001530 
001534 
001536 

001542 
001550 
001556 
001564 
001572 
001600 
001606 
001614 
001622 
001630 
001634 
001640 
001646 
001654 



005005 

012737 
122737 
001015 
022737 
00101 1 
000403 
012705 
000405 
012705 
000402 
012705 



012706 
005026 
022706 
001374 
012706 

012737 

01 2737 
012737 
01 2737 
012737 
012737 
01 2737 
012737 
013737 
005037 
005037 
1 12737 
012737 
0> 2737 



I////////////////////////////////////////////////////////////////////// 

;////////////////////////////////////////////////////////////////////// 

JBEGINI IS FOfi NORMAL START 

;BEGIN2 IS FOR DRIVE SELECTION 

;BEGIN3 IS FOR DRIVE & ADDRESS SELECTION 

;BEGIN4 IS FOR MANUAL OPERATION 

***************************************************************** 







BEGIN1 : 


CLR 


R5 


; NORMAL START 


041101 


001240 




MOV 


^''AB.^^DRVKEY 




000005 


000041 




CMPB 


#S,®#41 


; CASSETTE DDP? 








bne 


BGNCMN 


;G0 BEGIN COMMON CODE IF NO 


000260 


001230 




CMP 


#260,@#TAVEC 


; STANDARD VECTOR? 






BNE 


BGNCMN 


;G0 BEGIN COMMON CODE IF NO 








BR 


BEGIN3 


;GET DRIVES AND ADDRESSES 


000001 




BEGIN2: 


MOV 


#1 ,R5 


:ASK FOR DRIVES FLAG 






BR 


BGNCMN 


•.BEGIN COMilON CODE 


000002 




begins: 


MOV 


#2,R5 


;ASK FOR DRIVES AND ADDRESSES 








BR 


BGNCMN 




000003 




BEGIN4: 


MOV 


j^3.R5 





BGNCMN: 

.SBTTL INITIALIZE THE COMMON TAGS 
J -.CLEAR THE COMMON TAGS (SCMTAG) AREA 



001140 

001100 

006570 
000340 
007046 
000340 
014554 
000340 
014662 
000340 
006406 
001170 
001172 
000001 
001646 
001654 



000020 
000022 

000030 
000032 
000034 
000036 
000024 
000026 
006400 



0011 IS 
001106 
0011 10 



MOV 
CLR 
CMP 
BNE 
MOV 

INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 



i5'$CMTAG.R6 
<R6)+ ; 
(fSWR.RS ; ;DONE? 
.-6 ; 
#STACK,SP 5 
FEW VECTORS 
#$SCOPE,P*IOTVEC 
#340,@#IOTVEC+2 ; 
*$ERROR.§>*EMTVEC 
#340,@#EMTVEC+2 ; 
fSTRAP.P/S'TRAPVEC 
*340,P#TRAPVEC+2; LEVEL 7 



#$PWRDN,9#PWRVEC 
#340,i>#PWRVEC+2 
SENDCT.SEOPCT 
STIMES 
SESCAPE 
#1 .SERMAX 
ff. .SLPAOR 
.SLPERR 

;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
; EQUAL TO A "-1 " , SETUP FOR A SOFTWARE SWITCH REGISTER. 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 

LOOP BACK IF NO 
SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 

LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 
TRAP VECTOR FOR TRAP CALLS 



POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF-PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 



001662 


013746 


000004 




MOV 


MERRVEC.-CSP) 


;SAVE ERROR VECTOR 


001666 


01 2737 


001722 


000004 


MOV 


#64S,@#ERRVEC 


;SET UP ERROR VECTOR 


001674 


012737 


177570 


001140 


MOV 


#DSWR.SWR 


; SETUP FOR A HARDWARE SWICH REGISTER 


001702 


012737 


177570 


001 142 


MOV 


*DDISP, DISPLAY 


lAND A HARDWARE DISPLAY REGISTER 


001710 


022777 


177777 


177222 


CMP 


#-1 ,@SWR 


;TRY TO REFERENCE HARDWARE SWR 


001716 


001012 






BNE 


66$ 


; BRANCH IF NO TIMEOUT TRAP OCCURRED 












•.AND THE HARDWARE SWR IS NOT « -1 


001720 


000403 






BR 


65$ 


: BRANCH IF NO TIMEOUT 



TA1 1 MOTION TEST 



CZTADD.P1 1 23-MAR-78 


08:34 


1067 


001722 


01 2716 


001730 


1068 


001726 


000002 




1069 


001730 


01 2737 


000176 


1070 


001736 


012737 


000174 


1071 


001744 


01 2637 


000004 


1072 








1073 








1074 








1075 


001750 


005227 


177777 


1076 


001754 


001030 




1077 


001756 


022737 


006432 


1078 


001764 


001424 




1079 


001766 


104401 


002024 


1080 








1081 


001772 


005737 


000042 


1082 


001776 


001006 




1083 


002000 


023727 


001140 


1084 


002006 


001005 




1085 


002010 


104405 




1086 


002012 


000403 




1087 


002014 


112737 


000001 


1088 


002022 






1089 


002022 


000405 




1090 








1091 


002036 







CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 
INITIALIZE THE COMMON TAGS 



SEQ 0025 



SEQ 0033 



001140 65$: 
001142 

66$: 



MOV 
RTI 
MOV 
MOV 
MOV 



#65$, (SP) 



: ;SET UP FOR TRAP RETURN 
; ; POINT TO SOFTWARE SWR 



^SWREQ.SWR 
(CDISPREG, DISPLAY 

(SP)+,@#ERRVEC ; ; RESTORE ERROR VECTOR 



.SBTTL TYPE PROGRAM NAME 

I ; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



INC 
BNE 
CMP 
BEO 
TYPE 



#- 
HERE 

#$ENDAD,i'#42 
HERE 
.MSGID 



; ; FIRST TIME? 
; ; BRANCH IF NO 
; ;ACT-11? 
; ; BRANCH IF YES 
TYPE ASCIZ STRING 



.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 



67$: 
68$: 



; ;MSGID: 

here: 



TST 

BNE 

CMP 

BNE 

GTSWR 

BR 

MOVB 

BR 



®#42 
67S 

SWR.^SWREG 

68$ 

68$ 

#1 .$AUTOB 



ARE WE RUNNING UNDER XXDP/ACT? 

I ; BRANCH IF YES 

; ; SOFTWARE SWITCH REG SELECTED? 

I ; BRANCH IF NO 

;;GET SOFT-SWR SETTINGS 

J {SET AUTO-MODE INDICATOR 



HERE 
.ASCII 



;;GET OVER THE ASCIZ 
<CRLF>/CZTAD-D/<CRLF> 



TA1 1 MOTION TEST C2TAD-D MACYll 30A( 1052) 23-MAR-78 08:36 PAGE 26 

CZTADD.P11 23-MAR--78 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0026 

SEQ ooas 



1092 






1093 






1094 






1 095 






1096 






1097 






1098 






1099 






1 100 






1101 






1 102 






1 103 


002036 


01 0504 


1 104 


002040 


005305 


1 105 


002042 


002406 


1 106 


002044 


004737 


1107 


002050 


005305 


1 108 


002052 


002402 


1 109 


002054 


004737 


1110 






1111 






1 112 






1113 






1114 






1115 






1 116 






1117 






1118 






1119 






1 120 






1 121 






1 122 






1 123 






1 124 






1 125 






1 126 






1 127 


002060 


012737 


1 128 


002066 


005000 


1 129 


002070 


005777 


1 130 


002074 


000402 


1 131 


002076 


005200 


1 132 


002100 


022626 


1 133 


0021 02 


01 2737 


1 134 


0021 10 


005700 


1 135 


0021 12 


001412 


1 136 


0021 14 


104201 


1 137 


0021 16 


01 2705 


1 138 


0021 22 


005704 


1 139 


0021 24 


001344 


1 140 


0021 26 


013700 


1141 


0021 32 


001741 


1 142 


0021 34 


000137 


1 143 


002140 





4ii|i4i«4r*4ti|i4t4i4i4ri^4iiSr4i4i^ 



THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 



R5=3 
R5 = 2 

R5=1 ASK FOR DRIVE(S) 
R5=0 DON'T ASK FOR ANYTHING 



MANUAL OPERATIONS 

ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 



: MOV 
DEC 

BLT 
USR 
DEC 
BLT 
JSR 



R5,R4 ;COPY R5 

R5 ; ASK FOR DRIVES? 

CHKADR ;BR IF NO 

PC,P#ASKDRV ;G0 GET DRIVES TO BE TESTED 

R5 ;ASK FOR ADDRESSES? 

CHKADR ;BR IF NO 

PC,@#ASKADR ;G0 GET TA1 1 ADDRESSES 



CHECK THAT "TACS" WILL RESPOND TO ADDRESSING 



I. 



002076 000004 CHKADR: 



TIMEOUT OCCURRED 

A. TYPE ERROR MESSAGE 

B. EXAMINE R4 

1 . R4>0 GOTO BEGINX 

2. R4»0 EXAMINE (42) 

A. {42)=0 GOTO BEGINX 

B. (42)>0 GOTO SENDAD 

TIMEOUT DIDN'T OCCUR 
A. CONTINUE 



000006 000004 



1$: 
2$: 



MOV 


#1S.@#ERRVEC 


; IN CASE OF TIMEOUTS 


CLR 


RO 


;USE AS A SWITCH 


TST 


@TACSL 


;SEE IF TA1 1 RESPONDS 


BR 


2$ 


;BR IF NO TIMEOUT 


INC 


RO 


; COKE HERE ON TIMEOUT 


CMP 


(SP)+, (SP)+ 


; CLEANUP THE STACK 


MOV 


#ERRVEC+2.®4'ERRVEC 


; RESTORE TIMEOUT VECTOR 


TST 


RO 


;DID A TIMEOUT OCCUR? 


BEQ 


3$ 


;BR IF NO 


ERROR 


201 


;TA11 FAILED TO RESPOND 


MOV 


#2,R5 


; DRIVES a ADDRESSES 


TST 


R4 


:OPERATOR INPUTS? 


BNE 


BEGINX 


;BR IF YES 


MOV 


@#42.R0 


;GET MONITOR RETURN ADDRESS 


BEQ 


BEGINX 


;BR IF NO MONITOR 


JMP 


@#$ENOAO 


J GO TO END 



TA1 1 MOTION TEST C2TAD-D MACYll 30A{1052) 23-MAR-78 08:36 PAGE 27 

CZTADD.P1 1 23-MAR-78 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0027 



SEO 0027 



144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 



MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I. DESIRED DRIVES CAN NOT BE TESTED 

A. TYPE ERROR MESSAGE 

B. EXAMINE R4 

1 . R4>0 GOTO BEGINX 

2. R4«0 EXAMINE (42) 

A. (42)«0 GOTO BEGINX 

B. (42)>0 GOTO SENDAD 

II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

A. CLEAR BAD DRIVE FROM THE DRIVE TABLE 

B. CONTINUE IN PROGRAM 

in. DESIRED DRIVE(S) CAN BE TESTED 
A. CONTINUE IN PROGRAM 



165 


0021 40 


01 2700 


001240 


CHKDRV: 


MOV 


#DRVKEY,RO 


; PICKUP ADDRESS OF ASCII DRIVE KEY 


166 


002144 


004737 


006464 




JSR 


pc,@#exam 


;G0 EXAMINE FIRST DRIVE 


167 


002150 


000410 






BR 


1$ 


;0K TO TEST GO CHECK NEXT 


168 


002152 


1 1 6010 


000001 




MOVB 


1 (RO) , (RO) 


: REPLACE 1ST WITH 2ND 


169 


002156 


001412 






BEQ 


2$ 


:BR IF NO 2ND DRIVE SELECTED 


170 


002160 


004737 


006464 




JSR 


PC.WEXAl 


;G0 EXAMINE DRIVE 


171 


002164 


000407 






BR 


2$ 


;0K TO TEST 


172 


002166 


005010 






CLR 


(RO) 


1 CLEAR DRIVE CODES 


173 


0021 70 


000405 






BR 


• 2$ 




174 


0021 72 


005200 




1$: 


INC 


RO 


; POINT TO 2ND 


175 


0021 74 


004737 


006464 




*JSR 


PC, @# EX AM 


;G0 EXAMINE DRIVE 


176 


002200 


000401 






BR 


2$ 


;0K TO TEST 


177 


002202 


105010 






CLRB 


<R0) 


; CLEAR 2ND 


178 


002204 


01 2700 


001240 


2$: 


MOV 


#DRVKEY,RO 


; RESET ADDRESS POINTERS 


179 


002210 


01 0037 


001244 




MOV 


RO,«»#DRVPNT 




180 


002214 


121060 


000001 




CMPB 


(R0),1(R0) 


;1ST = 2ND? 


181 


002220 


001002 






BNE 


3$ 


;BR IF NO 


182 


002222 


105060 


000001 




CLRB 


1(R0) 


; YES— -CLEAR 2W 


183 


002226 


005710 




3$: 


TST 


(RO) 


; ANY DRIVES? 


184 


002230 


001401 






BEQ 


5$ 


;BR IF NO 


185 


002232 


000412 






BR 


MANUAL 




186 


002234 


104202 




SS: 


ERROR 


202 


;N0 DRIVES AVAILABLE 


187 


002236 


01 2705 


000002 




MOV 


#2,R5 


•.DRIVES & ADDRESS 


188 


002242 


005704 






TST 


R4 


; OPERATOR INPUTS? 


189 


002244 


001274 






BNE 


BEGINX 


;BR IF YES 


190 


002246 


01 3700 


000042 




MOV 


©#42, RO 


;GET MONITOR RETURN ADDRESS 


191 


002252 


001671 






BEQ 


BEGINX 


;N0 MONITOR 


192 


002254 


000137 


006432 




UMP 


PifSENDAD 


:G0 TO END 


193 


002260 


020427 


000003 


manual: 


CMP R4 


#3 




194 


002264 


001002 






BNE 


OK 




195 


002266 


01 3704 


177777 




MOV 


-1 ,R4 




196 


002272 


01 0437 


001246 


ok: 


MOV 


R4,P#ASKKEY 




197 


002276 


000405 






BR 


START 




198 


002300 


104401 


002024 


PWRST: 


TYPE 


.MSGID 


{POWER FAIL RESTART 


199 


002304 


01 2737 


001240 


001244 


faov 


<3fDRVKEY,&#DRVPNT 





TA11 MOTION TEST CZTAD-D MACYtl 30A(1052) 23-MAR-78 08:36 PAGE 28 

CZTADD.P11 23-MAR-7a 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEO 0028 

SEO 002S 









01 2356 


1 7671 


START: MOV 


i^BADINT ,@TAVEC 




; SETUP TA11 TRAP VECTOR 


1 on? 


002320 


01 3777 


001 234 


1 76704 


MOV 


P#TAPR I , @TAVEC+2 








002326 


1 2737 




1 77776 


MOV 


#340,P#PS 




; LOCKOUT ALL I/O INT 


I ono 
203 


002334 




00 1 220 




MOV 


@*TACSL,TACS 




; SETUP TAGS 


1 204 


002340 


013705 


001224 




MOV 


@#TADBL,TADB 




; SETUP TAOB 


1 205 


002344 


005037 


00 1 1 02 




CLR 


i>#$TSTNM 




JZERO THE TEST NUMBER 


1 206 


002350 


005037 


00661 4 




CLR 


f#LOOPKEY 




•.CLEAR THE LOOP UNDER TTY CONTROL KEY 




002354 




AAAAA1 


001 21 6 


MOV 


#i,@#$MXCNT 




-.SET FOR ONE ITERATION PER TEST 


^ ono 


002362 


A1 T7nl 


00 1 244 




MOV 


©>#DRVPNT,R1 




;GET DRIVE POINTER 


1 ono 


Anooc^i 

UUiC JtJD 


ni ni -a? 


AA i ooe 




MOV R1, DRIVE ;SET DRIVE TO POINTER 

;////////////////////////////////////////////////////////////////////// 


1 oi n 




1911 










:TYPE THE DRIVE(S) THAT WILL BE TESTED 




1 oi 5 


002372 


1 1 1 1 37 


001 250 






( R1 ) ,@#CURDRV 




' fiCT r'llDDCTMT nDTt/C CCID TVQC-rflllT 
( uC 1 WUKKUX i UKiVC run iTfC^JUl 


1 oi ^ 


002376 


1 A/lilA 1 






TYPE 






ilTrC ICSli WVa UK i V c 




ArtO/l AO 


1 04401 


001 250 




TYPE 


, CURDRV 




JiYrc IMt UUKKcNi uKlVc 


1 OIK 


A AO/1 A A 






1 76524 


BIT 


#SW07,@SWR 




;LOCK ON ONE DRIVE? 


101R 


A AO/1 1 /! 


00 1021 






BNE 


2$ 




IBR IF YES 


1 OI 7 






001 241 




TSTB 


i»#DRVKEY+1 




;TWO DRIVES AVAILABLE? 


Oi n 


002422 


ooflfe 






BEQ 


2$ 




; BR IF NO 


1 01Q 


002424 


005237 


001216 




INC 


@#$MXCNT 




;SET FOR TWO ITERATIONS PER TEST (ONE PER DRIVE) 


050 


AAO/l TA 


AA KO A 1 
wU Dc. V 1 






INC 


R1 




•.INCREMENT THE POINTER 


1 001 


002432 




001 250 




MOVE 


(R1),@#CURDRV 




;SET SECOND DRIVE FOR TYPE-OUT 




A AO/l "SR 


AA i C\nA 






BNE 


1$ 




;G0 TYPE IT 


1 223 


AAO/l/lA 




001 240 




MOV 


jlfDRVKEY.RI 




: RESET POINTER 




002444 


?i ^1 37 


001 250 




MOVB 


(R1 ) ,@#CURDRV 




;NOW GET THE SECOND DRIVE 


99R 


A AO/1 K A 


1 0440 1 


01 5302 




IS: TYPE 


,MANDRV 




;TYPE "AND DRIVE" 


99R 


002454 


1 0440 1 


001 250 




TYPE 


, CURDRV 




;TYPE DRIVE 


1 007 


A AOi^ CA 




AA 1 




2$ : MOV 


R1 ,@#DRVPNT 




;SAVE POINTER FOR NEXT TRIP THRU 


1 ooa 


AAO^ 


01 2737 




001 1 06 


MOV 


#5$,@#$LPADR 




; SETUP THE SCOPE LOOP ADDRESS 


1 OOQ 


002472 


005737 


nni 1 0il 

UU 1 1 WW 




TST 


@#$PASS 




;ONCE ONLY 


1 o-^n 




001 1 31 






BNE 


TST1 






231 










;////////////////////////////////////////////////////////////////////// 


1 232 










;0N THE FIRST PASS OF THE PROGRAM 


DETERMINE THE AMOUNT OF TIME TO 


1 9*?^ 










JWAIT ON A FLAG 


("READYV'TRANSFER 


REQUEST" ) AND THE STALL TIME TO USE 


234 










;WHEN STALLING 


AFTER A FUNCTION IS 


COMPLETED 


1 235 


A AOKAA 


1 04422 






SELDRV 






; SELECT DRIVE 


1 91fi 


C02502 




002702 


001 1 72 


MOV 


#FATAL,@#$ESCAPE 




; SETUP ESCAPE ON ERROR 


237 


00251 


005077 


1 76542 




CLR 


fsRWDFLG 




;SET FOR NO REWIND ERRORS 


1 238 


0025 1 4 




077777 


012012 


MOV 


#~CBITl5,f>#MAXCNT 




; SETUP IMPOSSIBLE COUNT 


1 239 


002522 


?i 27?4 


000016 




MOVB 


fSfXRWND.^TACS 




: INSURE NO ERROR DUE TO "^CLEAR LEADER" 


1 240 


002526 


1 04421 






REWIND 






IGO TO BOT 


1 241 


002530 


1 0441 2 






WFG 






;NOW TIME A WFG 


1 242 


002532 


1 63737 


01 201 


012012 


SUB 


f»#HICNT,@#MAXCNT 




;GET THE TIME IT TOOK TO WFG 




002540 




012012 




INC 


@#MAXCNT 




:MAKE IT BIGGER 


1 244 


002544 


006^37 


01 201 2 




ROL 


PifMAXCNT 






1 245 


002550 


0061 37 


012012 




ROL 


PifMAXCNT 






1 246 


002554 


005000 






CLR 


RO 






1 247 


002556 


005001 






CLR 


R1 






1 248 


002560 


01 2777 


00261 6 


1 76442 


MOV 


#4$,®TAVEC 




•.SETUP TA11 VECTOR 


1 249 


002566 


1 1 271 4 


0001 01 




MOVB 


*XWFG! INT.ENIGO,@TACS 


; START A "WFG" 


1 250 


002572 


005037 


177776 




CLR 


@#PS 




; ALLOW INTERRUPTS 


1251 


002576 


162700 


000001 




3$: SUB 


#1 ,R0 




; START TIMING HOW LONG 


1252 


002602 


005601 






SBC 


R1 




; IT TAKES TO WRITE A FILE GAP 


1253 


002604 


001374 






BNE 


3$ 






1254 


002606 


012737 


000340 


177776 


MOV 


^340.@ii'PS 




;LOCK OUT INTERRUPTS 


1255 


002614 


000432 






BR 


FATAL 




•.IT TOOK TO LONG 



TA1 1 MOTION TEST CZTAD-D MACY1 1 30A( 1052) 23-MAR-78 08:36 PAGE 29 

CZTADD.P1 1 23-MAR-7a 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEO 0029 



1256 


002616 


006201 


4$: 


ASR 


R1 


1257 


002620 


006000 




ROR 


RO 


1258 


002622 


01 0037 


001264 


MOV 


RO.MSTALL 


1259 


002626 


01 0137 


001266 


MOV 


R1 .**STALL+2 


1260 


002632 


01 2777 


012356 176370 


MOV 


#BADINT.@TAVEC 


1261 


002640 


105737 


001241 


TSTB 


e#DRVKEY+1 


1262 


002644 


001407 




BEQ 


5$ 


1263 


002646 


104422 




SELDRV 




1264 


002650 


005077 


176402 


CLR 


©RWDFLG 


1265 


002654 


1 1 2714 


000016 


MOVB 


#XRWND.*TACS 


1266 


002660 


104421 




REWIND 




1267 


002662 


104412 




WFG 




1268 


002664 


005737 


001246 5$: 


TST 


iPifASKKEY 


1269 


002670 


002034 




BGE 


TST1 


1270 


002672 


005000 




CLR 


RO 


1271 


002674 


006137 


012012 


ROL 


©#MAXCNT 


1272 


002700 


000000 




HALT 




1273 












1274 


002702 




fatal: 






1275 


002702 


104401 


002710 


TYPE 


,65$ 


1276 


002706 


000414 




BR 


64$ 


1277 






;;65$! 


.ASCIZ 


<15><12>*FATAL 


1278 


002740 




64$: 






1279 


002740 


104401 


001250 


TYPE 


.CURDRV 


1280 


002744 


01 3700 


000042 


MOV 


i>#42,R0 


1281 


002750 


001402 




BEQ 


1$ 


1282 


002752 


000137 


006432 


UMP 


9#$EN0AD 


1283 


002756 


000000 


1$: 


HALT 




1284 


002760 


000776 




BR 


1$ 



;DIVIDE THE TIME BY 2 

;AND SAVE IT AS THE STALL TIME 

;SET TRAP CATCHER 
;TWO DRIVES? 
;BR IF NO 

•.SELECT THE OTHER DRIVE 

;SET REWIND FLAG 

; AVOID "CLEAR LEADER" ERROR 

;G0 TO BOT 

;G0 TO OXIDE 

;G0 START TESTING IF NO MANUAL 
; OPERATIONS REQUESTED 

; INCREASE THE WAIT TIME 
:GIVE CONTROL TO THE OPERATOR 



; jTYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 



: CURRENT DRIVE 

; CHECK FOR A MONITOR 

:BR IF NONE 

; LEAVE 

; ERROR OCCURRED BEFORE TESTING STARTED 
; HANGUP 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 30 

CZTADD.P11 23-MAR-78 08:34 T1 REWIND . WRI TE , REWI ND , READ 



SEQ 0030 



SEO 0030 



1285 








1286 








1287 








1288 


002762 


000004 




1289 


002764 


01 2737 


003016 


1290 


002772 


104422 




1291 


002774 


104421 




1292 


002776 


104413 


017012 


1293 


003002 


104421 




1294 


003004 


104414 


016756 


1295 


00301 


104423 




1296 


003012 


016756 




1297 


003014 


01 7012 




1298 








1299 








1300 








1301 


003016 


000004 




1302 


003020 


01 2737 


003052 


1303 


003026 


104422 




1304 


003030 


104421 




1305 


003032 


104413 


017012 


1306 


003036 


104416 




1307 


003040 


104414 


016756 


1308 


003044 


104423 




1309 


003046 


01 6756 




1310 


003050 


01 7012 




131 1 








1312 








1313 








1314 


003052 


000004 




1315 


003054 


01 2737 


003106 


1316 


003062 


104422 




1317 


003064 


104421 




1318 


003066 


104413 


017012 


1319 


003072 


104415 




1320 


003074 


104414 


016756 


1321 


0031 00 


104423 




1322 


0031 02 


01 6756 




1323 


0031 04 


01 7012 




1324 








1325 








1326 








1327 


0031 06 


000004 




1328 


0031 10 


01 2737 


003156 


1329 


0031 16 


104422 




1330 


0031 20 


104421 




1331 


0031 22 


104413 


017012 


1 332 


0031 26 


104421 




1333 


0031 30 


104414 


016756 


1334 


0031 34 


104423 




1335 


0031 36 


01 6756 




1336 


0031 40 


01 7012 




1337 


0031 42 


1 0441 6 




1 338 


003144 


104414 


016756 


1339 


003150 


104423 




1340 


003152 


01 6756 





;*TEST 1 

TST1 : SCOPE 

my 

SELDRV 

REWIND 

WRITE 

REWIND 

READ 

BLKCMP 

RLNK1 

WLNK1 

TEST 2 



REWIND, WRITE, REWIND, READ 



******** 



************** 



,WLNK1 



.RLNKI 



***** 



TST2: SCOPE 
001 172 MOV 

SELDRV 

REWIND 

WRITE 

BSBG 

READ 

BLKCMP 

RLNKI 

WLNK1 

♦TEST 3 

TST3: SCOPE 
001172 MOV 

SELDRV 

REWIND 

WRITE 

BSFG 

READ 

BLKCMP 

RLNKI 

WLNK1 

;*TEST 4 

TST4: SCOPE 
001 1 72 MOV 

SELDRV 

REWIND 

WRITE 

REWIND 

READ 

BLKCMP 

RLNKI 

WLNK1 

BSBG 

READ 

BLKCMP 

RLNKI 



#TST2,$ESCAPE ; ; ESCAPE TO TEST 2 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
; WRITE ON TAPE 
;G0 TO BEGINNING OF TAPE 
-.READ 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

TEST BSBG AFTER WRITE AND READ AFTER BSBG 

************************************************** 

#TST3,SESCAPE | 5 ESCAPE TO TEST 3 ON ERROR 

: SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 
; WRITE ONE BLOCK 
;BACK OVER THE BLOCK 
;NOW READ 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
******************************************** 
BSFG AFTER WRITE AND READ AFTER BSFG 

*****************************************!«!** 



,WLNK 
,RLNK 



*****. 
TEST 



#TST4,$ESCAPE ; ;ESCAPE TO TEST 4 ON ERROR 

; SELECT DRIVE FJR TESTING 
;G0 TO " BOT " 

.WLNKI : WRITE ONE BLOCK 

;BACK OVER THE BLOCK 

, RLNKI ;NOW READ 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
************************************************** 

TEST BSBG AFTER READ 

^********************* **************************** 

#TST5,$ESCAPE ; ; ESCAPE TO TEST 5 ON ERROR 

: SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 

, WLNKI ; WRITE ONE BLOCK 

;G0 TO "BOT" 

, RLNKI ;READ 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
; BACK UP 

, RLNKI I READ 

; COMPARE THE READ AND WRITE BUFFERS 
I LINK TO THE READ BUFFER 



TA1 1 MOTION TEST 


CZTAD-D MACY11 


30A( 1052) 23-MAR-78 08:36 PAGE 


31 




C2TADD. 


Pi 1 23 


-WAR~7a 


08:34 


T4 TEST BSBG AFTER READ 






1341 


0031 54 


01 7012 




WLNKI 






;LINK TO THE WRITE BUFFER 


1342 










***************** 


******* 


************************** 


1343 








;*TEST 5 


TEST BSFG AFTER 


READ 




1 344 








******************************** 


********************************* 


1345 


003156 


000004 




TST5: SCOPE 








1346 


0031 60 


01 2737 


003226 001 172 


MOV 


#TST6,$ESCAPE 


; ; ESCAPE TO TEST 6 ON ERROR 


1347 


003166 


104422 




SELDRV 






; SELECT DRIVE FOR TESTING 


1 348 


0031 70 


104421 




REWIND 






;G0 TO "BOT" 


1349 


0031 72 


104413 


017012 


WRITE 


, WLNKI 




;WRITE A BLOCK 


1350 


0031 76 


1 04421 




REWIND 






;G0 TO "BOT" 


1351 


003200 


1 0441 4 


01 6756 


READ 


, RLNKI 




;READ A BLOCK 


1352 


003204 


104423 




BLKCMP 






; COMPARE THE REaJ AND WRITE 


1353 


003206 


01 6756 




RLNKI 






; LINK TO THE READ BUFFER 


1354 


003210 


01 7012 




WLNKI 






; LINK TO THE WRITE BUFFER 


1355 


0032 1 2 


104415 




BSFG 






; BACK OVER THE DATA 


1356 


003214 


104414 


016756 


READ 


, RLNKI 




;NOW READ THE DATA 


1357 


003220 


104423 




BLKCMP 






; COMPARE THE READ AND WRITE 


135B 


003222 


01 6756 




RLNKI 






; LINK TO THE READ BUFFER 


1359 


003224 


01 7012 




WLNKI 






rLiNK TO THE WRITE BUFFER 


1360 








«.********* **************************** 


*****************&******** 


1361 








;*TEST 6 


TEST SFBG AFTER 


REWIND 


AND BSFG AFTER SFBG 


1362 








•J************************************* 


********** ***************«s 


1363 


003226 


000004 




TST6: SCOPE 








1364 


003230 


01 2737 


003266 001172 


MOV 


#TST7,$ESCAPE 


5 ; ESCAPE TO TEST 7 ON ERROR 


1365 


003236 


1 04422 




SELDRV 






•.SELECT DRIVE FOR TESTING 


1 356 


003240 


1 04421 




REWIND 






;G0 TO "BOT" 


1367 


003242 


1 04413 


017012 


WRITE 


,WLNK1 




; WRITE ONE BLOCK OF DATA 


1368 


003246 


104421 




REWIND 






•,G0 TO "BOT" 


1369 


003250 


104420 




SFBG 






; SPACE OVER THE DATA 


1370 


003252 


104415 




BSFG 






;BACK OVER THE DATA 


1371 


003254 


1 0441 4 


016756 


READ 


, RLNKI 




;READ THE BLOCK 


1372 


003260 


104423 




BLKCMP 






; COMPARE THE READ AND WRITE 


1373 


003262 


01 6756 




RLNKI 






; LINK TO THE READ BUFFER 


1374 


003264 


01 7012 




WLNKI 






; LINK TO THE WRITE BUFFER 


1375 










************************** 


1376 








;*TEST 7 


TEST WRITE AFTER 


READ 




1377 








j;************************************* 


******rtt***************aS«ii?l* 


1378 


003266 


000004 




TST7: SCOPE 








1379 


003270 


01 2737 


003342 001172 


MOV 


#TST10.$ESCAPE 


ESCAPE TO TEST 10 ON ERROR 


1380 


003276 


104422 




SELDRV 






JSELECT DRIVE FOR TESTING 


1381 


003300 


104421 




REWIND 






•,G0 TO "CLEAR LEADER" 


1382 


003302 


104413 


017012 


WRITE 


, WLNKI 




; WRITE ONE BLOCK 


1383 


003306 


104416 




BSBG 






jBACK OVER THE DATA BLOCK 


1384 


003310 


1 0441 4 


016756 


READ 


, RLNKI 




; AND READ IT 


1385 


003314 


104423 




BLKCMF 






; COMPARE THE READ AND WRITE 


1386 


003316 


01 6756 




RLNKI 






; LINK TO THE READ BUFFER 


1387 


003320 


01 7012 




WLNKI 






; LINK TO THE WRITE BUFFER 


1388 


003322 


1 0441 3 


017016 


WRITE 


,WLNK2 




; WRITE A SECOND BLOCK 


1389 


003326 


104416 




BSBG 






;BACK OVER IT 


1390 


003330 


104414 


016762 


READ 


,RLNK2 




; AND READ IT 


1391 


003334 


104423 




BLKCMP 






; COMPARE THE READ AND WRITE 


1392 


003336 


016762 




RLNK2 






; LINK TO THE READ BUFFER 


1393 


003340 


01 7016 




WLNK2 






; LINK TO THE WRITE BUFFER 


1394 










1395 








;*TEST 10 


TEST WRITE AFTER 


WRITE 


AND READ. AFTER READ 


1396 








J ;**********«{f** 


**!3i*ifi$*88i*iSi8i**!8!®«******!Si8>«i**«Si*********************'® 



SEQ 0031 



SiO 0031 



CZTADD.P11 23-MAR-78 08:34 



TIO 



TEST WRITE AFTER WRITE AND READ AFTER READ 



SEQ 0033 



1397 


003342 


000004 




1 398 


003344 


01 2737 


003406 


1399 


003352 


1 04422 




1400 


003354 


1 04421 




1 401 


003356 


1 0441 3 


01 701 2 


1402 


003362 


1 0441 3 


01 7016 


1 403 


003366 


1 04421 




1404 


003370 


1 04414 


01 6756 


1405 


003374 


104414 


01 6762 


1 406 


003400 


1 04423 




1 407 


003402 


01 6762 




1408 


003404 


01 7016 




1409 








1410 








141 1 








1412 


003406 


000004 




1413 


00341 


01 2737 


003450 


1414 


003416 


1 04422 




1415 


003420 


1 04421 




1415 


003422 


1 0441 3 


01 701 2 


1417 


003426 


1 0441 3 


017016 


1418 


003432 


1 04416 




1419 


003434 


104416 




1 420 


003436 


1 0441 4 


01 6756 


1421 


003442 


1 04423 




1422 


003444 


01 6756 




1 423 


003446 


01 701 2 




1424 








1425 








1 426 








1427 


003450 


000004 




1428 


003452 


01 2737 


003512 


1 429 


003460 


1 04422 




1 430 


003462 


1 04421 




1 431 


003464 


1 0441 3 


01 701 2 


1432 


003470 


1 0441 3 


017016 


1 433 


003474 


1 04421 




1434 


003476 


1 04420 




1 435 


003500 


1 0441 4 


01 6762 


1436 


003504 


1 04423 




1 437 


003506 


01 6762 




1 438 


00351 


01 701 6 




1 439 








1440 








1441 








1442 


00351 2 


000004 




1 443 


003514 


01 2737 


003556 


1 444 


003522 


1 04422 




1 445 


003524 


1 04421 




1 446 


003526 


1 0441 3 


01 701 2 


1 447 


003532 


1 0441 3 


01 701 6 


1 448 


003536 


1 0441 6 




1449 


003540 


1 0441 6 




1 450 


003542 


1 f\ A A f\ 




1451 


003544 


104414 


016762 


1452 


003550 


104423 





♦TEST 
TST11 : 



♦ TEST 
TST12: 



*TEST 
TST13: 



SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

REWIND 

READ 

READ 

BLKCMP 

RLNK2 

WLNK2 

11 

SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

BSBG 

BSBG 

READ 

BLKCMP 

RLNK1 

WLNK1 

12 

SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

REWIND 

SFBG 

READ 

BLKCMP 

RLNK2 

WLNK2 

13 

SCOPE 
MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

BSBG 

BSBG 

SFBG 

READ 

BLKCMP 



JliTSTll .SESCAPE 



,WLNK1 
,WLNK2 



,RLNK1 
,RLNK2 



; ; ESCAPE TO TEST 11 ON ERROR 

•.SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
; WRITE TW0(2) BLOCKS 

;G0 TO BOT 

;READ BOTH BLOCKS 



; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

************************************************** 
TEST BSBG AFTER BSBG 



^TSTia.SESCAPE 



,WLNK1 
.WLNK2 



;; ESCAPE TO TEST 12 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
;WRITE TW0(2) BLOCKS 



;BACK OVER THE 2ND BLOCK 
JBACK OVER THE 1ST BLOCK 
,RLNK1 ;READ THE 1ST BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 
JLINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

TEST READ AFTER SFBG 



#TST13,$ESCAPE 



,WLNK1 
,WLNK2 



; ; ESCAPE TO TEST 13 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER- 
; WRITE TW0(2) BLOCKS 

;BOT 



SPACE OVER THE 1ST BLOCK 
,RLNK2 JREAD THE 2ND BLOCK 

; COMPARE THE READ AND -WRITE BUFFERS 
;LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

TEST SFBG AFTER BSBG 



#TST14,$ESCAPE 



.WLNKI 
,WLNK2 



; {ESCAPE TO TEST 14 ON ERROR 

{SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
{WRITE TW0(2) BLOCKS 

{BACK SPACE OVES BOTH BLOCKS 

{SPACE FWD OVER 1ST BLOCK 

{READ 2ND BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 



TA1 1 MOTION TEST 



CZTADD. 


P1 1 23 


-MAR-78 


08:34 


1453 


003552 


016762 




1454 


003554 


01 7016 




1455 








1456 








1457 








1458 


003556 


000004 




1459 


003560 


01 2737 


003620 


1460 


003566 


104422 




1461 


003570 


104421 




1462 


003572 


104413 


017012 


1463 


003576 


104413 


017016 


1464 


003602 


104415 




1465 


003604 


104420 




1466 


003606 


104414 


016762 


1467 


003612 


104423 




1468 


003614 


016762 




1469 


003616 


01 7016 




1470 








1471 








1472 








1473 


003620 


000004 




1474 


003622 


01 2737 


004012 


1475 


003630 


154422 




1476 


003632 


104421 




1477 


003634 


104413 


017012 


1478 


003640 


104413 


017016 


1479 


003644 


104416 




1480 


003646 . 


104416 




1481 


003650 


1 04414 


015756 


1482 


003654 


104423 




1483 


003656 


016756 




1484 


003660 


01 7012 




1485 


003662 


104414 


016762 


1486 


003666 


104423 




"1487 


003670 


01 6762 




1488 


003672 


01 7016 




1489 


003674 


104416 




1490 


003676 


104413 


017022 


1491 


003702 


104416 




1492 


003704 


104414 


016768 


1493 


003710 


104423 




1494 


003712 


01 6766 




1495 


003714 


01 7022 




1496 


003716 


104416 




1497 


003720 


104413 


017026 


1498 


003724 


104416 




1499 


003726 


104414 


016772 


1500 


003732 


104423 




1501 


003734 


01 6772 




1502 


003736 


01 7026 




1503 


003740 


104416 




1504 


003742 


104413 


017016 


1505 


003746 


104416 




1506 


003750 


104414 


016762 


1507 


003754 


104423 




1508 


003756 


016762 





C2TAD-D MACYIt 30A(1052) 23-MAR-78 08:36 PAGE 33 
T13 TEST SFBG AFTER BSBG 



SEQ 0033 



SEQ 0033 



♦ TEST 
TST14: 



TEST 
TST15: 



RLNK2 
WLNK2 

! * * * * Ij! * * * Ij 

14 

e ******* Hf! «1 

SCOPE 
MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

BSFG 

SFBG 

READ 

BLKCMP 

RLNK2 

WLNK2 

it********! 

15 

SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

BSBG 

BSBG 

READ 

BLKCMP- 

RLNK1 

WLNKI 

READ 

BLKCMP 

RLNK2 

WLNK2 

BSBG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK3 

WLNK3 

BSBG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK4 

WLNK4 

BSBG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK2 



TEST SFBG AFTER BSFG 

**sit*iS*i8!4n!i«i********«******* 



{ LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 



********** 



#TST15,$ESCAPE 



, WLNKI 
,WLNK2 



; {ESCAPE TO TEST 15 ON ERROR 

{SELECT DRIVE FOR TESTING 
{GO TO "CLEAR LEADER" 
•.WRITE TWO BLOCKS 



{SPACE REV FILE 
{SPACE FWD BLOCK 
,RLNK2 {READ THE 2ND BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 
{ LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 
*****************************♦**♦♦♦♦♦*♦♦♦♦♦♦♦**** 
REWRITE THE LAST BLOCK 3 TIMES AFTER DOING A WRITE AFTER WRITE 



#TST16,$ESCAPE 



, WLNKI 
,WLNK2 



,WLNK3 
,RLNK3 



,WLNK4 
,RLNK4 



,WLNK2 
,RLNK2 



{ESCAPE TO TEST 16 ON ERROR 

{SELECT DRIVE FOR TESTING 
{GO TO "CLEAR LEADER" 
{WRITE 2 BLOCKS 

{BACK OVER BOTH OF THEM 

{READ THE FIRST ONE 

{COMPARE THE READ AND WRITE BUFFERS 

; LINK TO THE READ BUFFER 

{ LINK TO THE WRITE BUFFER 

{NOW READ THE 2ND ONE 

{COMPARE THE READ AND WRITE BUFFERS 

{ LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

{BACK OVER THE 2ND ONE 

{WRITE OVER THE 2ND BLOCK 

{NOW BACK UP AND 

{READ IT 

{COMPARE THE READ AND WRITE BUFFERS 

; LINK TO THE READ BUFFER 

{ LINK TO THE WRITE BUFFER 

; BACK OVER IT AGAIN 

{AND WRITE OVER IT AGAIN 

{ BACK UP AND 

{READ THE BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

{BACK OVER THE BLOCK AGAIN 

{AND WRITE OVER IT AGAIN 

{NOW BACK UP 

{AND READ IT 

{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ BUFFER 



SEQ 0034 



1509 


003760 


01 7016 




1510 


003762 


104416 




151 1 


003764 


1 0441 6 




1512 


003766 


1 0441 4 


016756 


1513 


003772 


104423 




1514 


003774 


01 6756 




1515 


003776 


01 701 2 




1 516 


004000 


104414 


016762 


1517 


004004 


104423 




1518 


004006 


01 6762 




1519 


004010 


017016 




1520 








1521 








1522 








1 523 


004012 


000004 




1524 


004014 


01 2737 


0041 70 


1525 


004022 


104422 




1526 


004024 


104421 




1527 


004026 


104413 


017012 


1528 


004032 


104416 




1529 


004034 


1 04414 


016756 


1530 


004040 


104423 




1531 


004042 


01 6756 




1532 


004044 


01 7012 




1533 


004046 


104413 


017016 


1534 


004052 


104416 




1535 


004054 


1 04414 


016762 


1536 


004060 


104423 




1537 


004062 


01 6762 




1538 


004064 


01 7016 




1539 


004066 


104416 




1540 


004070 


10441 3 


017026 


1541 


004074 


104416 




1542 


004076 


104414 


016772 


1 543 


0041 02 


104423 




1 544 


0041 04 


01 6772 




1545 


0041 06 


01 7026 




1546 


0041 10 


104416 




1547 


0041 12 


104413 


017032 


1548 


0041 16 


104416 




1549 


0041 20 


104414 


016776 


1550 


0041 24 


1 04423 




1551 


0041 26 


01 6776 




1552 


0041 30 


01 7032 




1553 


0041 32 


1 0441 6 




1554 


0041 34 


1 0441 3 


017022 


1555 


0041 40 


104416 




1556 


0041 42 


104416 




1557 


0041 44 


1 04414 


016756 


1558 


0041 50 


104423 




1559 


0041 52 


01 6756 




1560 


0041 54 


01 7012 




1561 


0041 56 


104414 


016766 


1562 


0041 62 


104423 




1563 


0041 64 


01 6766 




1564 


004166 


01 7022 





WLNK2 

BSBG 

BSBG 

READ 

BLKCMP 

RLNK1 

WLNK1 

READ 

BLKCMP 

RLNK2 

WLNK2 



TST16: SCOPE 
MOV 

SELDRV 

REWIND 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK1 

WLNK1 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK2 

WLNK2 

BSBG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK4 

WLNK4 

BSBG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK5 

WLNK5 

BSBG 

WRITE 

BSBG 

BSBG 

READ 

BLKCMP 

RLNK1 

WLNK1 

READ 

BLKCMP 

RLNK3 

WLNK3 



REWRIT 



E THE 



; LINK TO THE WRITE BUFFER 
; BACK OVER BOTH BLOCKS 

;AND READ THE 1ST ONE 

; COMPARE THE READ AND WRITE BUFFERS 

; LINK TO THE READ BUFFER 

; LINK TO THE WRITE BUFFER 

; AND THE 2ND ONE 

; COMPARE THE READ AND WRITE BUFFERS 

; LINK TO THE READ BUFFER 

; LINK TO THE WRITE BUFFER 

********** 

LAST BLOCK 3 TIMES AFTER DOING A WRITE AFTER READ 



#TST17,$ESCAPE 

WLNK1 
RLNK1 

RLNK2 

UILNK4 
RLNK4 



; ESCAPE TO TEST 17 ON ERROR 

SELECT DRIVE FOR TESTING 
GO TO "CLEAR LEADER" 
WRITE A BLOCK OF DATA 
BACK OVER IT 
AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
WRITE 2ND BLOCK 
BACK OVER IT 
AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
BACK OVER IT AND 
WRITE OVER 2ND BLOCK 
BACK UP AND ' 
READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
BACK OVER IT AGAIN 
; REWRITE 2ND BLOCK 

;READ 2ND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
; BACK OVER IT AGAIN 
; WRITE ANOTHER BLOCK OVER IT 
JBACK OVER 2 BLOCKS 

;READ THE 1ST BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
: LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
;READ 2ND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 



TA11 MOTION TEST C2TAD-D I^ACYII 30A( 1052) 23-"MAR"7a 08:36 PAGE 35 

CZTADD. PI 1 23-MAR-78 08:34 T17 TEST WFG AFTER WRITE AND BSFG AFTER WFG 



SEQ 003S 



SEQ 0935 



1565 








1566 








1 567 








1 568 


0041 70 


000004 




1569 


0041 72 


01 2737 


004226 


1570 


004200 


1 04422 




1571 


004202 


1 04421 




1572 


004204 


1 0441 3 


017012 


1573 


00421 


104412 




1574 


00421 2 


104415 




1575 


004214 


104414 


016756 


1576 


004220 


104423 




1577 


004222 


01 6756 




1578 


004224 


01 7012 




1579 








1 580 








1581 








1582 


004226 


000004 




1583 


004230 


01 2737 


004264 


1584 


004236 


1 04422 




1 585 


004240 


104421 




1586 


004242 


104413 


017012 


1587 


004246 


104412 




1588 


004250 


104416 




1589 


004252 


104414 


016756 


1590 


004256 


1 04423 




1591 


004260 


01 6756 




1592 


004262 


01 7012 




1593 








1594 








1595 








1596 


004264 


000004 




1597 


004266 


01 2737 


004342 


1598 


004274 


1 04422 




1599 


004276 


104421 




1600 


004300 


104413 


017012 


1 601 


004304 


1 04421 




1602 


004306 


1 04414 


016756 


1603 


004312 


104423 




1604 


004314 


01 6756 




1605 


004316 


01 7012 




1606 


004320 


104412 




1607 


004322 


104413 


017016 


1608 


004326 


104416 




1609 


004330 


104414 


016762 


1610 


004334 


1 04423 




161 1 


004336 


01 6762 




1612 


004340 


01 7015 




1613 








1614 








1615 








1616 


004342 


000004 




1617 


004344 


01 2737 


004420 


1618 


004352 


104422 




1519 


004354 


104421 




1620 


004356 


104413 


017012 



*TEST 17 



TEST WFG AFTER WRITE AND BSFG AFTER WFG 



* * * I* * * * * 



TST17S SCOPE 
001 172 MOV 

SELDRV 

REWIND 

WRITE 

WFG 

BSFG 

READ 

BLKCMP 

RLNK1 

WLNK1 



*TEST 20 

TST20: SCOPE 
MOV 

SELDRV 

REWIND 

WRITE 

WFG 

BSBG 

READ 

BLKCMP 

RLNK1 

WLNK1 

«TEST 21 

TSTSi; SCOPE 
MOV 

SELDRV 

REWIND 

WRITE 

REWIND 

READ 

BLKCMP 

RLNK1 

WLNK1 

WFG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK2 

WLNK2 

*TEST 22 

TST22: SCOPE 
MOV 

SELDRV 
REWIND 

WRITE 



#TST20,SESCAPE ;;ESCAPE TO TEST 20 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO " BOT " 

,WLNK1 ; WRITE ONE BLOCK 

; FOLLOWED BY A FILE GAP 
;BACK OVER THE DATA BLOCK 

,RLNK1 ;READ THE DATA 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

It***** ************ ****** 

TEST BSBG AFTER WFG 

*l3«!S:**sj.**!8!**!)«******«**!j»*********J{:** **************** 

#TST21 ,$ESCAPE ; ; ESCAPE TO TEST 21 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO BOT 

,WLNK1 ; WRITE ONE BLOCK OF DATA 

; WRITE A FILE GAP 
;BACK OVER THE DATA 
,RLNK1 I READ ONE BLOCK 

•.COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 

*********************************************•!!**** 

TEST WRITE AFTER WFG 

******************iSi*************** **************** 



#TST22,$ESCAPE 



ESCAPE TO TEST 22 ON ERROR 

JSELECT DRIVE FOR TESTING 
;G0 TO BOT 

,WLNK1 ;WRITE ONE BOCK 

;G0 TO BOT 

.RLNKI :READ ONE BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
;WRITE A FILE GAP 
,WLNK2 ; WRITE ANOTHER BLOCK 

; BACK OVER THE LAST BLOCK 
,RLNK2 ;READ THE SECOND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

****************************************!e*******®* 

TEST WFG AFTER READ AND BSFG AFTER WRITE 

*****^***********^***********iji**************tSi**iSt** 



iS'TSTaa.iESCAPE 



; ; ESCAPE TO TEST 23 ON ERROR 

; SELECT DRIVE FOR TESTING 

I GO TO "BOT" 

; WRITE ONE BLOCK 



TA11 MOTION TEST C2TAD-D MACY11 30A{ 1052) 23-MAR-78 08:36 PAGE 36 

CZTADD.P11 23-MAR-78 08:34 T22 TEST WFG AFTER READ AND BSFG AFTER WRITE 



SEO 0036 

SEQ 0036 



1621 


004362 


104421 






REWIND 








;G0 TO "BOT" 




1622 


004364 


104414 


016756 




READ 


,RLNK1 






;READ ONE BLOCK 




1623 


004370 


104423 






BLKCMP 








; COMPARE THE READ AND WRITE 


BUFFERS 


1624 


004372 


01 6756 






RLNK1 








JLINK TO THE READ BUFFER 




1625 


004374 


01 7012 






WLNK1 








; LINK TO THE WRITE BUFFER 




1626 


004376 


104412 






WFG 








;WRITE A FILE GAP' 




1627 


004400 


104413 


017016 




WRITE 


,WLNK2 






JWRITE A BLOCK 




1628 


004404 


104415 






BSFG 








;BACK OVER THE DATA 




1629 


004406 


104414 


016762 




READ 


,RLNK2 






;READ SECOND BLOCK 




1630 


004412 


104423 






BLKCMP 








; COMPARE THE READ AND WRITE 


BUFFERS 


1631 


004414 


016762 






RLNK2 








;LINK TO THE READ BUFFER 




1632 


004416 


01 7016 






WLNK2 








; LINK TO THE WRITZ BUFFER 




1633 
















1634 










;*TEST 23 


TEST SFFG 


AFTER 


REWIND AND READ AFTER SFFG 




1635 












**************** 




1636 


004420 


000004 






TST23: SCOPE 












1637 


004422 


012737 


004464 


001172 


MOV 


#TST24,$ESCAPE 


; ; ESCAPE 


TO TEST 24 ON ERROR 




1638 


004430 


104422 






SELDRV 








jSELECT DRIVE FOR TESTING 




1639 


004432 


104421 






REWIND 








;G0 TO "BOT" 




1640 


004434 


104413 


017012 




WRITE 


,WLNK1 






; WRITE A BLOCK OF DATA 




1641 


004440 


104412 






WFG 








; WRITE A FILE GAP 




1642 


004442 


104413 


017016 




WRITE 


,WLNK2 






; WRITE A BLOCK OF DATA 




1643 


004446 


104421 






REWIND 








;G0 TO "BOT" 




1644 


004450 


104417 






SFFG 








; SPACE OVER FIRST BLOCK 




1645 


004452 


104414 


016762 




READ 


,RLNK2 






JREAD THE 2ND BLOCK 




1646 


004456 


104423 






BLKCMP 








; COMPARE THE READ AND WRITE 


BUFFERS 


1647 


004460 


01 6762 






RLNK2 








;LINK TO THE READ BUFFER 




1648 


004462 


01 7016 






WLNK2 








SLINK TO THE WRITE BUFFER 




1649 










;*TEST 24 




********* ******ii,*****^,*** 




1650 










TEST BSBG 


AFTER 


SFFG 






1651 












************************* 


^ti!*,(t**^:ii***^f**m*^i^!^^<ifit^nit!s>^ 




1652 


004464 


000004 






TST24: SCOPE 












1653 


004466 


01 2737 


004532 


001 172 


MOV 


iS'TSTaB.SESCAPE 


; ; ESCAPE 


TO TEST 25 ON ERROR 




1654 


004474 


104422 






SELDRV 








5 SELECT DRIVE FOR TESTING 




1655 


004476 


104421 






REWIND 








;G0 TO "BOT" 




1656 


004500 


104413 


017012 




WRITE 


,WLNK1 






•.WRITE DATA 




1657 


004504 


104412 






WFG 








; WRITE FILE GAP 




1658 


004506 


104413 


017016 




WRITE 


,WLNK2 






JWRITE DATA 




1659 


004512 


104421 






REWIND 








J GO TO "BOT" 




1660 


004514 


104417 






SFFG 








; SPACE OVER FIRST FILE 




1661 


004516 


104416 






BSBG 








; BACKUP TO FIRST BLOCK 




1662 


004520 


104414 


016756 




READ 


.RLNKI 






;READ THE BLOCK 




1663 


004524 


104423 






BLKCMP 








; COMPARE THE READ AND WRITE 


BUFFERS 


1664 


004526 


01 6756 






RLNK1 








; LINK TO THE READ BUFFEv 




1665 


004530 


01 7012 






WLNK1 








; LINK TO THE WRITE BUFFER 




1666 














4t«iic*i4r4::(t:4<4!4i4'>tc>ti*)«<)tt*4>i4c*4>**it<***«*«iti*« 




1667 










f*TEST 25 


TEST SFBG 


AFTER 


SFFG 






1668 














1669 


004532 


000004 






TST25: SCOPE 












1670 


004534 


012737 


004606 


001172 


MOV 


^TST26,$ESCAPE 


;; ESCAPE 


TO TEST 26 ON ERROR 




1671 


004542 


104422 






SELDRV 








JSELECT DRIVE FOR TESTING 




1672 


004544 


104421 






REWIND 








;G0 TO -BOT* 




1673 


004546 


104413 


017012 




WRITE 


,WLNK1 






; WRITE A BLOCK OF DATA 




1674 


004552 


104412 






WFG 








; FOLLOWED BY A FILE GAP 




1675 


004554 


104413 


017016 




WRITE 


,WLNK2 






; FOLLOWED BY 2 BLOCKS OF DATA 


1676 


004560 


104413 


017022 




WRITE 


,WLNK3 











TA11 MOTION TEST CZTAD-D MACY1 1 30A( 1052) 23-MAR-7a 08:36 PAGE 37 

CZTADD.P1 1 23-MAR-7a 08:34 T25 TEST SFBG AFTER SFFG 



SEO 0037 



SEQ 0037 



1677 


004564 


104421 


1678 


004566 


104417 


1679 


004570 


1 04420 


1680 


004572 


104416 


1681 


004574 


104414 


1682 


004600 


104423 


1683 


004602 


016762 


1684 


004604 


01 7016 


1685 






1686 






1687 






1688 


004606 


000004 


1689 


004610 


012737 


1690 


004616 


104422 


1691 


004620 


104421 


1692 


004622 


104413 


1693 


004626 


104412 


1694 


004630 


104413 


1695 


004634 


104413 


1696 


004640 


104413 


1697 


004644 


104421 


1698 


004646 


104417 


1699 


004650 


104420 


1700 


004652 


104420 


1701 


004654 


104414 


1702 


004660 


104423 


1703 


004662 


016772 


1704 


004664 


01 7026 


1705 






1706 






1707 






1708 


004666 


000004 


1709 


004670 


012737 


1710 


004676 


104422 


1711 


004700 


104421 


1712 


004702 


104413 


1713 


004706 


104412 


1714 


004710 


104413 


1715 


004714 


104421 


1716 


004716 


104417 


1717 


004720 


104420 


1718 


004722 


104415 


1719 


004724 


104415 


1720 


004726 


104414 


1721 


004732 


104423 


1722 


004734 


01 6756 


1723 


004736 


01 7012 


1724 






1725 






1726 






1727 


004740 


000004 


1728 


004742 


01 2737 


1729 


004750 


104422 


1730 


004752 


104421 


1731 


004754 


104413 


1732 


004760 


104412 



004666 001172 



004740 0011 72 



005016 001 172 



REWIND 

SFFG 
SFBG 
BSBG 
READ 
BLKCMP 
RLNK2 
WLNK2 

J *i! 

*TEST 26 

J *it****4f***m*it 

TST26! SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WFG 
WRITE 
WRITE 
WRITE 
REWIND 
SFFG 
SFBG 
SFBG 
READ 
BLKCMP 
RLNK4 
WLNK4 

TEST 27 

l$i !j! >tl ^ « ^ 

TST27: SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WFG 
WRITE 
REWIND 
SFFG 
SFBG 
BSFG 
BSFG 
READ 
BLKCMP 
RLNKI 
WLNK1 

*TEST 30 

i» ,11 i 

TST30: SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WFG 



;G0 TO ''BOT" 
; SPACE OVER 1ST FILE 
•.SPACE OVER BLOCK 
;BACK OVER THE BLOCK 
. RLNK2 -.READ THE LAST BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

TEST SFBG AFTER SFBG 



#TST27,$ESCAPE 



,WLNK2 
,WLNK3 

,WLNK4 



: ESCAPE TO TEST 27 ON ERROR 

•.SELECT DRIVE FOR TESTING 

•GO TO "BOT" 

: WRITE A BLOCK OF DATA 

; WRITE A FILE GAP 

; WRITE 3 BLOCKS OF DATA 



J GO TO "BOT" 

; SPACE OVER THE 1ST FILE 
; SPACE OVER TWO BLOCK 



,RLNK4 



; READ LAST BLOCK OF DATA 
; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 

TEST BSFG AFTER SFBG AND BSFG AFTER BSFG 

#TST30,$ESCAPE ; ; ESCAPE TO TEST 30 ON ERROR 

SELECT DRIVE FOR TESTING 
GO TO "BOT" 

,WLNK1 : WRITE ONE BLOCK OF DATA 

WRITE A FILE GAP 
,WLNK2 ; WRITE A BLOCK OF DATA 

iGO TO "BOT* 
SPACE OVER 1ST FILE 

SPACE OVER UT Bmm OF m> PI Li 

BACK TO BEGINNNG OF 2ND FILE 
BACK TO BEGINNING OF 1ST FILE 
, RLNKI {READ 1ST BLOCK OF 1ST FILE 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 

TEST BSBG THRU A FILE GAP 

#TST31 ,$ESCAPE ;| ESCAPE TO TEST 31 ON ERROR 

5 SELECT DRIVE FOR TESTING 

5 GO TO "BOT" 

.WLNKI ; WRITE ONE BLOCK OF DATA 

; WRITE A FILE GAP 



TA11 MOTION TEST CZTAD-D MACYll 30A(1052) 23-MAR-?8 08:36 PAfii 38 

CZTADD.P11 23-MAR-78 08:34 T30 TEST BSBG THRU A FILE GAP 



SEQ 0033 

SEQ 0038 



1733 


004762 


1 0441 3 


01 7016 


1734 


004766 


1 0441 3 


01 7022 


1735 


004772 


104421 




1736 


004774 


1 0441 7 




1737 


004776 


104420 




1738 


005000 


104416 




1739 


005002 


1 0441 6 




1740 


005004 


1 0441 4 


01 6756 


1 741 


005010 


1 04423 




1742 


005012 


01 6756 




1743 


005014 


01 7012 




1744 








1745 








1746 








1747 


005016 


000004 




1748 


005020 


01 2737 


005070 


1749 


005026 


104422 




1750 


005030 


104421 




1751 


005032 


104413 


01 701 2 


1752 


005036 


104412 




1753 


005040 


104413 


017016 


1754 


005044 


104421 




1755 


005046 


104417 




1756 


005050 


1 04420 




1757 


005052 


104416 




1 758 


005054 


104415 




1 759 


005056 


1 0441 4 


01 6756 


1760 


005062 


1 04423 




1761 


005064 


01 6756 




1762 


005066 


01 701 2 




1763 








1 764 








1765 








1766 


005070 


000004 




1 767 


005072 


01 2737 


005134 


1768 


0051 00 


104422 




1769 


005102 


104421 




1770 


005104 


104413 


01 701 2 


1771 


0051 10 


104412 




1772 


0051 1 2 


1 0441 3 


01 701 6 


1773 


0051 16 


104415 




1 774 


0051 20 


1 0441 6 




1 775 


0051 22 


104414 


016756 


1776 


0051 26 


1 04423 




1777 


0051 30 


01 6756 




1778 


0051 32 


01 7012 




1 779 








1780 








1781 








1782 


0051 34 


000004 




1783 


005136 


01 2737 


005216 


1 784 


0051 44 


1 04422 




1785 


005146 


104421 




1786 


005150 


104413 


017012 


1787 


005154 


104412 




1788 


005156 


104413 


017016 





WRITE BUFFERS 



;*TEST 31 




;WRITE ONE BLOCK OF DATA 

; WRITE A FILE GAP 

; WRITE A BLOCK OF DATA 

;G0 TO "BOT" 

; SPACE OVER FILE 




BUFFERS 



TO TEST 33 ON 




THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 



; ;*♦*♦* 

;*TEST 
TST335 



AFTER SFFG 




; ; ESCAPE TO TEST 34 ON 



WRITE 



; 

;Q0 TO "BOT" 

; WRITE A BLOCK OP DATA 

;WRITE A FILE GAP 

;WRITE A BLOCK OF DATA 



TA1 1 MOTION TEST CZTAD-D MACY11 30A{1052) 23-MAR-78 08:36 PAGE 3S 

CZTADD. PI 1 23-MAR-7a 08:34 T33 TEST BSFG AFTER SFFQ AND SFFG AFTER READ 



SEQ 0039 



SEO 0039 



1789 


005162 


104421 




1790 


005164 


104417 




1791 


005166 


104415 




1792 




104414 


016756 


1793 


005174 


104423 




1794 


005176 


01 6756 




1795 


005200 


01 7012 




1796 


005202 


104417 




1797 


005204 


104414 


016762 


1798 


005210 


104423 




1799 


005212 


01 6762 




1800 


005214 


01 7016 




1801 








1802 








1803 








1804 








1805 


005220 


01 2737 


005274 


1806 


005226 


104422 




1807 


005230 


104421 




1808 


005232 


104413 


017012 




005236 


104412 




1810 




104413 


017016 


181 1 


005244 


104412 




1812 


005246 


104413 


017022 


1813 


005252 


104412 




1814 


005254 


104421 




1815 


005256 


104417 




1816 


005260 


104417 




1817 


005262 


104414 


016766 


1818 


005266 


104423 




1819 


005270 


016766 




1820 

1821 


005272 


01 7022 




1822 
1823 








1824 


005274 








005276 


01 2737 




1826 
1827 


005304 


104422 






00530G 
005310 


104421 
104413 


017012 


1829 


005314 


104413 


017016 


1830 


005320 


104412 




1831 


005322 


104413 




1832 


005326 


104412 




1833 


005330 


104421 




1834 


005332 


104420 




1835 


005334 


104417 




1836 


005336 


104414 


016766 


1837 


005342 


104423 




1838 


005344 


01 6766 




1840 




01 7022 




1841 








1842 








1843 


005350 


000004 




1844 


005352 


01 2737 


005422 



REWIND 

SFFG 

BSFG 

READ 

BLKCMF 

RLNK1 

WLNK1 

SFFG 

READ 

BLKCMP 

RLNK2 

WLNK2 



5 GO TO "BOT" 

; SPACE OVER 1ST FILE 

;BACK TO BEGINNING OF 1ST FILE 

'.READ FIRST DATA BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 

JLINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 

; SPACE TO BEGINNING ON 2N0 FILE 

:READ 1ST BLOCK OF 2ND FILE 

; COMPARE THE READ AND WRITE BUFFERS 

JLINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 




{SELECT DRIVE FOR TESTING 
— TO BOT 

; WRITE A 

•.WRITE FILE GAP 
WRITE A BLOCK 

A FILE GA 
A BLOCK 
A FILE GA 




1ST FILE 

, „ 2ND FILE 

5 READ BLOCK OF 3RD FILE 



AND WRITE BUFFERS 



;*TEST 
fsT35: 



;G0 TO "BOT- 

•.WRITE A BLOi 

•.WRITE A BLQi 

{WRITE A GAP 

•.WRITE A 

;WRITE A GAP 
;G0 TO 




BLOCK (AND 1ST FILE) 
OF 2N0 FILE 
!RD FILE 

BUFFERS 



J *TEST 



TO TEST 37 ON 



TA11 MOTION TEST CZTAD-0 MACY11 30A(1052) 23-MAR-78 08:36 PAGE «»o 

CZTADD.P11 23-MAR-78 08:34 T36 TEST WFG AFTER SFBG 



SEO 0040 



1845 


005360 


104422 




1846 


005362 


104421 




1847 


005364 


104413 


017012 


1848 


005370 


104413 


017016 


1849 


005374 


104421 




1850 


005376 


104420 




1851 


005400 


104412 




1852 


005402 


104413 


017022 


1853 


005406 


104415 




1854 


005410 


104414 


016766 


1855 


005414 


104423 




1856 


005416 


016766 




1857 


005420 


01 7022 




1858 








1859 








1860 








1861 


005422 


000004 




1862 


005424 


012737 


005474 


1863 


005432 


1044P2 




1864 


005434 


104421 




1865 


005436 


104413 


017012 


1866 


005442 


104413 


017016 


1867 


005446 


104421 




1868 


005450 


104420 




1869 


005452 


104413 


017022 


1870 


005456 


104415 




1871 


005460 


104420 




1872 


005462 


104414 


016766 


1873 


005466 


104423 




1874 


005470 


016766 




1875 


005472 


01 7022 




1876 








1877 








1878 








1879 


005474 


000004 




1880 


005476 


01 2737 


005564 


1881 


005504 


104422 




1882 


005506 


104421 




1883 


005510 


104413 


017012 


1884 


005514 


104412 




1885 


005516 


104413 


017016 


1886 


005522 


104412 




1887 


005524 


104413 


017022 


1888 


005530 


104412 




1889 


005532 


104421 




1890 


005534 


104417 




1891 


005535 


104417 




1892 


005540 


104417 




1893 


005542 


104415 




1894 


005544 


104415 




1895 


005546 


104415 




1896 


005550 


104417 




1897 


005552 


104414 


016762 


1898 


005556 


104423 




1899 


005560 


016762 




1900 


005562 


017016 





001172 



SELDRV 

REWIND 

WRITE 

WRITE 

REWIND 

SFBG 

WFG 

WRITE 

BSFG 

READ 

BLKCMP 

RLNK3 

WLNK3 

J !^ * 

♦TEST 37 

• « « « « 9 « « I» 4l « lit !» « 

TST37S SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WRITE 
REWIND 
SFBG 
WRITE 
BSFG 
SFBG 
READ 
BLKCMP 
RLNK3 
WLNK3 



;SELECT DRIVE FOR TESTING 

JWRITE 2 BLOCKS 

;G0 TO "BOT" 
;GET OVER THE 1ST BLOCK 
; WRITE A GAP OVER 2ND BLOCK 
;WRITE A BLOCK 
;BACK OVER THE BLOCK 
-.AND READ IT 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE REAO BUFFER 
; LINK TO THE WRITE BUFFER 

********** 

TEST WRITE AFTER SFBG 



,WLNK1 
,WLNK2 



,WLNK3 
,RLNK3 



#TST40,SESCAPE 



,WLNK1 
,WLNK2 



; ESCAPE TO TEST 40 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO BOT 
{WRITE 2 BLOCK 



♦TEST 40 



J GO TO BOT 

; SPACE OVER 1ST BLOCK 
,WLNK3 ; WRITE OVER 2ND BLOCK 

;G0 TO BEGINNING OF FILE 
; SPACE OVER 1ST BLOCK 
,RLNK3 ;READ THE NEW 2ND BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
JLINK TO THE WRITE BUFFER 

3 ONE BLOCK FILES' MULTI SPACING & TEST SFFG AFTER BSFG 



TST40: 



SCOPE 
MOV 

SELDRV 

REWIND 

WRITE 

WFG 

WRITE 

WFG 

WRITE 

WFG 

REWIND 

SFFG 

SFFG 

SFFG 

BSFG 

BSFG 

BSFG 

SFFG 

READ 

BLKCMP 

RLNK2 

WLNK2 



#TST41 .SESCAPE ; 5 ESCAPE 

,WLNK1 
,WLNK2 

,lilLNK3 



,RLNK2 



TO TEST 41 ON ERROR 

SELECT DRIVE FOR TESTING 

GO TO "BOT" 

WRITE A BLOCK 

FILE GAP 

BLOCK 

FILE GAP 

BLOCK 

FILE GAP 

GO TO "BOT" 

SPACE OVER 1ST FILE 

SPACE OVER 2ND FILE 

SPACE OVER 3RD FILE 

BACK OVER 3RD FILE 

BACK OVER 2ND FILE 

BACK OVER 1ST FILE 

GO TO BEGINNING OF 2ND FILE 

READ THE BLOCK 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 



TA1 1 MOTION TEST C2TAD-D MACY1 1 30A( 1052) 23-MAR-78 08:36 PAGE 41 

CZTADD.P1 1 23-MAR-7S 08:34 T41 TWO BLOCK FILES MULTI SPACING FUNCTIONS 



SEO 0041 



SEQ 0041 



1901 
1902 
1903 



1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 



♦TEST 41 



*l!!**ljl***lj!*****ljl*l*!jl*l)t4l**ljl********** **************** 

TWO BLOCK FILES MULTI SPACING FUNCTIONS 



1904 


005564 


000004 


TST41 : 


SCOPE 






1905 


005566 


012737 


005672 001172 


MOV 


#TST42,$ESCAPE 


ESCAPE TO TEST 42 ON ERROR 


1906 


005574 


104422 




SELDRV 




{SELECT DRIVE FOR TESTING 


1907 


005576 


104421 




REWIND 




J GO TO "BOT" 


1908 


005600 


104413 


017012 


WRITE 


,WLNK1 


{WRITE A 2 BLOCK FILE 


1909 


005604 


104413 


017016 


WRITE 


,WLNK2 




1910 


005610 


104412 




WFG 






1911 


005612 


104413 


017022 


WRITE 


,WLNK3 


{WRITE A 2 BLOCK FILE 


1912 


005516 


104413 


017026 


WRITE 


,WLNK4 




1913 


005622 


104412 




WFG 






1914 


005624 


104413 


017032 


WRITE 


,WLNK5 


{WRITE A 2 BLOCK FILE 


1915 


005630 


104413 


017036 


WRITE 


,WLNK6 




1916 


005634 


104412 




WFG 






1917 


005636 


104421 




REWIND 




{GO TO "BOT" 


1918 


005640 


104417 




SFFG 




{SPACE OVER 1ST FILE 


1919 


005642 


104417 




SFFG 




{SPACE OVER 2ND FILE 


1920 


005544 


'.04414 


016776 


READ 


,RLNK5 


{READ 1ST BLOCK OF 3RD FILE 


1921 


005650 


104423 




BLKCMP 




{COMPARE THE READ AND WRITE BUFFERS 


1922 


005652 


01 6776 




RLNK5 




{ LINK TO THE READ BUFFER 


1923 


005654 


01 7032 




WLNK5 




{ LINK TO THE WRITE BUFFER 


1924 


005656 


104415 




BSFG 




{BACK TO BEGINNING OF 3RD FILE 


1925 


005660 


104414 


016778 


READ 


,RLNK5 


{READ 1ST BLOCK OF 3RD FILE 


1926 


005664 


104423 




BLKCMP 




{COMPARE THE READ AND WRITE BUFFERS 


1927 


005666 


01 6776 




RLNK5 




{LINK TO THE READ BUFFER 


1928 


005670 


01 7032 




WLNK5 




{ LINK TO THE WRITE BUFFER 



• 4! * m ^ 18! * * i!( ij: ijc * 

♦TEST 42 



005672 


000004 




TST42: SCOPE 




005674 


01 2737 


006042 001172 


MOV 


#TST43 


005702 


104422 




SELDRV 




005704 


104421 




REWIND 




005706 


104413 


017012 


WRITE 


.WLNKI 


005712 


104413 


017016 


WRITE 


,WLNK2 


005716 


104413 


017022 


WRITE 


,WLNK3 


005722 


104412 




WFG 




005724 


104413 


017026 


WRITE 


,WLNK4 


005730 


104413 


017032 


WRITE 


.WLNKS 


005734 


104412 




WFG 




005736 


104421 




REWIND 




005740 


104417 




SFFG 




005742 


104417 




SFFG 




005744 


104415 




BSFG 




005746 


104414 


016772 


READ 


,RLNK4 


005752 


104423 




BLKCMP 




005754 


01 6772 




RLNK4 




005756 


01 7026 




WLNK4 




005760 


104415 




BSFG 




005762 


104415 




BSFG 




005764 


104414 


016756 


READ 


,RLNK1 


005770 


104423 




BLKCMP 




005772 


016756 




RLNK1 




005774 


01 7012 




WLNK1 





MULTI SPACING & TEST SFBG AFTER READ 

APE { { ESCAPE TO TEST 43 ON ERROR 

{SELECT DRIVE FOR TESTING 
{GO TO "BOT" 
{WRITE A 3 BLOCK FILE 



{WRITE A 2 BLOCK FILE 



{GO TO -BOT- 

{ SPACE OVER THE 1ST FILE 

{SPACE OVER THE 2ND FLE 

{BACK TO BEGINNING OF 2 FILE 

{READ 1ST BLOCK OF 2ND FILE 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

{BACK TO BEGINNING OF 2ND FILE 

{ BACK OVER 1ST «^ILE 

{READ 1ND BLOCK OF 1ST FILE 

{COMPARE THE READ AND WRITE BUFFERS , 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 



SiQ 0042 

SEQ 0042 













UUDUvU 


1 044 1 4 


01 6756 




U UDU U** 


o?6756 




1 QAft 


UUOUUD 






1 QR1 


UwDW 1 V 


017012 






AACA 1 O 
vUOU 1 ^ 


1 04420 




1 963 




1 044 1 4 


016766 


. 


AAKAOA 


1 04423 




1 965 


AACA 50 


1 6766 




1 966 


006024 


01 7022 






A AKA OR 


1 044 1 7 




1 95Q 


006030 


1 0441 4 


016772 




006034 


1 04423 






AAKAIfi 








A AKA^A 


1 7026 




1 Q7^ 








07^ 
















1 Q7^ 


AACA45 
vUwU tZ 


000004 




Q7fi 


A ACA^^ 




0061 62 


Q77 




1 04422 




1 Q70 


AAKAC;/! 


1 04421 




1 070 


006056 




01 701 2 


IQRn 


A ACAAO 




01 701 6 


loni 


AAKARR 
UUDU DO 


04412 




1 QRO 


AAKA7A 


1 0441 3 


01 7022 


1 oaf 


AAKA7^ 
UUDw / *t 


1 0441 3 


01 7026 




A AK 1 A A 
UUD 1 UU 


in44i ^ 




1 on^ 


AAC1 AO 
UUO 1 Uz 




01 7032 


1 QRK 


AAfU Afi 
U UD 1 UD 


1 0441 3 


01 7036 


on? 




1 044 1 2 




ORR 


0061 1 4 


1 04421 




QRQ 


UD 1 1 O 








AACI OA 
UUDl ZU 


1 0441 7 




1 QQ1 


0061 22 


0441 7 






0061 24 


1 0441 5 




QQT 


A AK 1 OR 
UUD 1 ZD 


■j 044 1 5 






A AR 1 "in 

UUD 1 «5U 


■f 044 1 6 






AAc! 






1 OQR 


0061 34 


1 044 1 4 


01 6766 


QQ7 


AARl ^A 
UUO 1 MU 


1 04423 




1 998 




1 6766 




QQQ 


A AK 1 
UUO 1 ''H 


1 7022 






0061 46 


1 0441 7 




onm 


A AK 1 RA 
UUD 1 *>U 


t 044 1 4 


016776 


oncio 


0061 54 


1 04423 






AAA 1 RR 
w UO 1 OKj 








A AK 1 RA 
UUDl OU 


1 7032 












2006 








2007 








2008 


006162 


000004 




2009 


006164 


012737 


006352 


2010 


006172 


104422 




2011 


006174 


104421 




2012 


006176 


104413 


017012 



BSFG 

READ 

BLKCMP 

RLNK1 

WLNK1 

SFBG 

READ 

BLKCMP 

RLNK3 

WLNK3 

SFFG 

READ 

BLKCMP 

RLNK4 

WLNK4 

*TEST 43 

• *iSii5iijii}r* ******* 

TST43S SCOPE 



,RLHK1 



,RLNK3 



,RLNK4 



***************** 
im BLOCK FILES- 



;G0 TO BEGINNING OF 1ST FILE 
;READ 1ST BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
; LINK TO THE WRITE BUFFER 
5 GET OVER 2ND BLOCK 
;READ 3RD BLOCK 

.•COMPARE THE READ AND WRITE BUFFERS 

;LINK TO THE READ BUFFER 

:LINK TO THE WRITE BUFFER 

;G0 TO BEGINNING OF 2ND FILE 

.•READ 1ST BLOCK CF 2ND FILE 

; COMPARE THE READ AND WRITE BUFFERS 

; LINK TO THE READ BUFFER 

; LINK TO THE WRITE BUFFER 

-MULTI SPACING & TEST SFFG AFTER BSBG 
******************** ****** 



MOV 


#TST44,$ESCAPE 


} {ESCAPE TO TEST 44 ON ERROR 


SELDRV 




•.SELECT DRIVE FOR TESTING 


REWIND 




;G0 TO BOT 


WRITE 


,WLNK1 


; WRITE A 2 BLOCK FILE 


WRITE 


,WLNK2 




WFG 






WRITE 


,WLNK3 


•.WRITE A 2 BLOCK FILE 


WRITE 


,WLNK4 




WFG 






WRITE 


,WLNK5 


; WRITE A 2 BLOCK FILE 


WRITE 


,WUjK6 




WFG 






REWIND 




;BOT 


SFFG 




; SPACE OVER 3 FILES 


SFFG 






SFFG 






BSFG 




; BACK OVER 2 FILES 


BSFG 






BSBG 




;BACK TO 2ND BLOCK OF 1ST FILE 


SFFG 




;G0 TO BEGINNING OF 2 NO FILE 


READ 


,RLNK3 


;READ 1ST RECORD OF 2ND FILE 


BLKCMP 




; COMPARE THE READ AND WRITE BUFFERS 


RLNK3 




; LINK TO THE READ BUFFER 


WLNK3 




;LINK TO THE WRITE BUFFER 


SFFG 




;G0 TO 3RD FILE 


READ 


,RLNK5 


;READ 1ST RECORD OF 3RD FILE 


BLKCMP 




; COMPARE THE READ AND WRITE BUFFERS 


RLNK5 




;LINK TO THE READ BUFFER 


WLNK5 




•.LINK TO THE WRITE BUFFER 



^**********»*^^1»t»^#** 
«TEST 44 6 ONE 

TST44: SCOPE 

MOV 

SELDRV 
REWIND 

WRITE ,WLNK1 



iiit^^*i»t»^»i$ii»^*if^^iii********#************^**^*^ 

BLOCK FILES MULT I SPACING 

ti**if ********************** ***************** 



#$EOP,$ESCAPE ;•, ESCAPE TO $EOP ON ERROR 

; SELECT DRIVE FOR TESTING 
;eO TO BOT 

.'WRITE A 1 RECORD FILE 



TA1 1 MOTION TEST 



CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 43 



SEQ 0043 



ZTADD 


P11 23-MAR-78 


08:34 


T44 6 ONE BLOCK FILES— 


-MULTI SPACING 


2013 


006202 


104412 




WFG 






2014 


006204 


104413 


017016 


WRITE 


,WLNK2 


; WRITE A 1 BLOCK FILE 


2015 


006210 


104412 




WFG 






2016 


006212 


104413 


017022 


WRITE 


,WLNK3 


•.WRITE A 1 BLOCK FILE 


2017 


006216 


104412 




WFG 






2018 


006220 


104413 


017026 


WRITE 


,WLNK4 


•.WRITE A 1 BLOCK FILE 


2019 


006224 


104412 




WFG 






2020 


006226 


104413 


017032 


WRITE 


. WLNKS 


; WRITE A 1 BLOCK FILE 


2021 


006232 


104412 




WFG 






2022 


006234 


104413 


017036 


WRITE 


,WLNK6 


: WRITE A 1 BLOCK FILE 


2023 


006240 


104412 




WFG 






2024 


006242 


104421 




REWIND 




•.BOT 


2025 


006244 


104417 




SFFG 




; SPACE OVER 1ST FILE 


2026 


006246 


104417 




SFFG 




: SPACE OVER 2ND FILE 


2027 


006250 


104417 




SFFG 




•.SPACE OVER 3R0 FILE 


2028 


006252 


104417 




SFFG 




; SPACE OVER 4TH FILE 


2029 


006254 


104417 




SFFG 




; SPACE OVER 5TH FILE 


2030 


006256 


104417 




SFFG 




•.SPACE OVER 6TH FILE 


2031 


006260 


104415 




BSFG 




5 NOW BACK UP AND READ IT 


2032 


006262 


104414 


017002 


READ 


,RLNK8 




2033 


006266 


104423 




BLKCMP 




; COMPARE THE READ AND WRITE 


2034 


006270 


017.002 




RLNK6 




JLINK TO THE READ BUFFER 


2035 


006272 


01 7036 




WLNK6 




J LINK TO THE WRITE BUFFER 


2036 


006274 


104415 




BSFG 




;BACK UP TO 5TH FILE 


2037 


006276 


104415 




BSFG 






2038 


006300 


104414 


016776 


READ 


, RLNK5 


.•AND READ IT 


2039 


006304 


104423 




BLKCMP 




; COMPARE THE READ AND WRITE 


2040 


006306 


016776 




RLNK5 




; LINK TO THE READ BUFFER 


2041 


006310 


01 7032 




WLNKS 




5 LINK TO THE WRITE BUFFER 


2042 


006312 


104415 




BSFG 




;BACK UP TO 3RD FILE 


2043 


006314 


104415 




BSFG 






2044 


006316 


104415 




BSFG 






2045 


006320 


104414 


016766 


READ 


,RLNK3 


;AND READ IT 


2046 


006324 


104423 




BLKCMP 




•.COMPARE THE READ AND WRITE 


2047 


006326 


016766 




RLNK3 




JLINK TO THE READ BUFFER 


2048 


006330 


01 7022 




WLNK3 




5 LINK TO THE WRITE BUFFER 


2049 


006332 


104415 




BSFG 




'.BACK UP TO 1ST FILE 


2050 


006334 


104415 




BSFG 






2051 


006336 


104415 




BSFG 






2052 


006340 


104414 


01675S 


READ 




;ANO READ IT 


2053 


006344 


104423 




BLKCMP 




; COMPARE THE READ AND WRITE 


2054 


006346 


016756 




RLNK1 




•.LINK TO THE READ BUFFER 


2055 


006350 


01 7012 




WLNK1 




;LINK to THE WRITE BUFFER 



SEQ 0043 



TAil MOTION TEST CZTAD-D MACYll 30A(1052) 23-MAR-78 08:36 PAGE 44 

CZTADD.PII 23-MAR-78 08:34 END OF PASS ROUTINE 



SEQ 0044 

SEQ §044 



2056 








2057 








2058 








2059 








2060 








2061 








2062 








2063 








2064 








2065 








2066 


006352 






2067 


006352 


000004 




2068 


006354 


005037 


001102 


2069 


006360 


005037 


001170 


2070 


006364 


005237 


001100 


2071 


006370 


042737 


100000 


2072 


006376 


005327 




2073 


006400 


000001 




2074 


006402 


003017 




2075 


006404 


012737 




2076 


006406 


000001 




2077 


006410 


006400 




2078 


006412 


104401 


006451 


2079 


006416 


104401 


006446 


2080 


006422 


01 3700 


00004a 


2081 


006426 


001405 




2082 


006430 


000005 




2083 


006432 


004710 




2084 


006434 


000240 




2085 


006436 


000240 




2086 


006440 


000240 




2087 


006442 






2088 


006442 


000137 




2089 


006444 


002312 




2090 


006446 


377 


377 


2091 


006451 


015 


042412 


2092 


006456 


050040 


051501 



.SBTTL END OF PASS ROUTINE 



■^INCREMENT THE PASS NUMBER (SPASS) 
*TYPE "END PASS" 
*IF THERES A MONITOR GO TO IT 
*IF THERE ISN'T JUMP TO START 

*IF IT IS DESIRED TO HAVE A BELL INDICATE THE 
*$ENDMC CAN BE CHANGED TO 7. 



"END OF PASS" LOCATION 



000 
0421 16 
000123 





SCOPE 






CLR 


STSTNM 




CLR 


STIMES 




INC 


SPASS 




BIC 


#100000, SPASS 




DEC 


(PC) + 


SEOPCT: 


.WORD 


1 




BGT 


SDOAGN 




MOV 


(PC)+,®(PC)+ 

1 


SENDCT: 


.WORD 




SEOPCT 






TYPE 


, SENDMG 




TYPE 


, SENULL 


$GET42: 


MOV 


®#42,R0 




BEQ 


SDOAGN 




RESET 




SENDAD: 


JSR 


PC,(R0) 




NOP 






NOP 






NOP 




SDOAGN: 








UMP 


@(PC)+ 


SRTNAD: 


.WORD 


START 


SENULL: 


.BYTE 


-1 ,-1 ,0 


SENDMG: 


.ASCII 


<15><12>/END 



;ZERO THE TEST NUMBER 
;ZERO THE NUMBER OF ITERATIONS 
; INCREMENT THE PASS NUMBER 
; DON'T ALLOW A NEG. NUMBER 

; LOOP? 

;YES 

; RESTORE COUNTER 



; ;TYPE "END PASS" 

J ; TYPE A NULL CHARACTER 

; ;GET MONITOR ADDRESS 

;; BRANCH IF NO MONITOR 

; ; CLEAR THE WORLD 

; ;G0 TO MONITOR 

5 ;SAVE ROOM 

; ;FOR 

; JACTII 

J ; RETURN 

; ;NULL CHARACTER STRING 



TA1 1 MOTION TEST CZTAD-D MACY11 30A( 1052) 23-MAR-78 08:36 PAGE 45 

CZTADD.P1 1 23-MAR-78 08:34 END OF PASS ROUTINE 



2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
21 1 1 
21 12 
2113 
2114 
2115 
2116 
21 17 
2118 
2119 
2120 
2121 
2122 
2123 
2124 



TTL ROUTINE TO EXAMINE ORIVE(S) FOR AVAILABLITY 













MOV 


#DRVKEY,R0 














JSR 


PC,@#EXAM 


Rl IS DESTROYED 












NORMAL 


RETURN 














ERROR 


RETURN 




006464 


01 3701 


001220 




EXAM: 


MOV 


«»#TACSL,R1 


PICKUP THE "CONTROL A STATUS" REG. ADR. 


006470 


00501 1 








CLR 


(R1) 


DRIVEs-'A", FUNCTIPN«"WFG" 


006472 


122710 


000101 






CMPB 


#'A,(R0) 


EXAMINE DRIVE "A"? 


006476 


001402 








BEQ 


1S 


BR IF YES 


006500 


05271 1 


000400 






BIS 


#UNIT, (Rl ) 


SELECT DRIVE "B" 


006504 


03271 1 


000040 




IS: 


BIT 


#READY, (R1 ) 


WAIT ON READY 


006510 


001775 








BEO 


1$ 




006512 


00571 1 








TST 


(R1) 


ANY ERROR? 


006514 


100024 








BPL 


4$ 


BR IF NO 


006516 


03271 1 


001000 






BIT 


^OFFLINE, (Rl ) 


ERROR DUE TO "OFF LINE"? 


006522 


001017 








BNE 


3$ 


BR IF YES 


006524 


032711 


010000 






BIT 


#WRTL0CK,(R1) 


ERROR DUE TO "WRITE LOCK"? 


006530 


00141 1 








BEO 


2$ 


BR IF NO 


006532 


122.777 


000201 


172400 




CMPB 


#BIT071BIT00,©SWR 


"READONLY" SELECTED? (R01PAS) 


006540 


001412 








BEQ 


4$ 


BR IF YES 


006542 


122777 


000203 


172370 




CMPB 


#BIT07!BIT01IBIT00,@SWR 


(RD2PAS)? 


006550 


001406 








BEQ 


4$ 


BR IF YES 


006552 


000403 








BR 


3$ 


TAKE THE ERROR EXIT 


006554 


03271 1 


020000 




2$: 


BIT 


# LEADER, (Rl ) 


ERROR DUE TO "CLEAR LEADER"? 


006560 


001002 








BNE 


4$ 


BR IF YES 


006562 


062716 


000002 




3$: 


ADO 


#2,{SP) 


TAKE ERROR RETURN 


006566 


000207 






4$: 


RTS 


PC 


RETURN 
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SEQ 0046 



SEO 004@ 



2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
21 66 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 



006570 
006570 
006572 
006576 
006600 
006602 
006606 
006610 
006612 
006614 
006616 
006620 
006625 

006630 

006632 
006636 
006644 
006550 
006654 
006656 
006660 
006664 
006666 
006666 
006672 
006674 
006702 
006704 
006712 
006714 
006722 
006724 
006730 
006734 
006736 
006744 
006746 
006752 
006754 
006760 
006766 



01 3746 
01 2737 
005737 
01 2637 
000453 
022626 
012637 
000413 

105737 
001421 
123737 
101015 
032777 
001404 
01 3737 
000443 
105037 
005037 
000415 
032777 
00101 1 
005737 
001406 
005237 
023737 
002021 



.SBTTL SCOPE HANDLER ROUTINE 

. *************************************************************** 
*TH1S ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
*AND LOAD THE TEST NUMBER ( $TSTNM ) INTO THE DISPLAY REG . ( D I SPLAY<7 : 0> ) 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5: 0B> 
*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



*SW14»1 

*SW1 1=1 
*SW09«1 

*CALL 



LOOP ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 



104406 






CKSWR 




105777 


172346 




TSTB 


@$TKS 


100005 






BPL 


100$ 


104407 






RDCHR 




122627 


000003 




CMPB 


(SP)+,#3 


001001 






BNE 


100$ 


104424 






SET LOOP 




005727 




. 1 00$ : 


TST 


(PC) + 


000000 




LOOPKEY 







001 105 






BNE 


SOVER 


032777 


040000 


172312 1$: 


BIT 


»BIT14,®SWR 


001 101 






BNE 


SOVER 






;##*(»*START OF 


CODE FOR THE 


000416 




SXTSTR: 


BR 


6$ 



000004 
006656 
177060 
000004 



000004 

001103 

001115 

001000 

001 1 10 

001103 
001170 

004000 

001 100 

001104 
001170 



MOV 

MOV 

TST 

MOV 

BR 

CMP 

MOV 

BR 



P#ERRVEC,-(SP) 
#5$,@#ERRVEC 
©#177060 
(SP) + ,e>#ERRVEC 
SSVLAD 
(SP)-,(SP)+ 
(SP)+,e#ERRVEC 
7$ 



a$: 



001106 7$: 



6$: ;##«'##END OF CODE FOR THE XOR TESTER***** 



; ;TEST FOR CHANGE IN SOFT-SWR 
;TTY FLAG UP? 
;BR IF NO 

:G0 GET ONE CHARACTER FROM TTY 
; IS IT A CONTROL/C ? 
;BR IF NO 

;G0 GET "TEST" AND "SCOPE LC^P" ADDRESSES 
;LOOP ON TEST? 

;BR IF YES 
; ; LOOP ON PRESENT TEST? 
; ;YES IF SW14=1 
TESTER***** 

; IF RUNNING ON THE "XOR" TESTER CHANGE 

JTHIS INSTRUCTION TO A "NOP" (N0P=240) 

; SAV£ THE CONTENTS OF THE ERROR VECTHR 

I SET FOR TIMEOUT 

;TIME OUT ON XOR? 

{RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

;CLEAR THE STACK AFTER A TIME OUT 

; RESTORE THE ERROR VECTOR 

; LOOP ON THE PRESENT TEST 



4$: 



172174 3$: 



TSTB 

BEO 

CMPB 

BHI 

BIT 

BEQ 

MOV 

BR 

CLRB 

CLR 

BR 

BIT 

BNE 

TST 

BEO 

INC 

CMP 

BGE 



SERFLG 
3$ 

SERMAX, SERFLG 

3$ 

4$ 

SLPERR.SLPADR 

SOVER 
SERFLG 
STIMES 
IS 

#BIT11 ,@SWR 
1$ 

$PASS 
IS 

SICNT 

STIMES, SICNT 
SOVER 



HAS AN ERROR OCCURRED? 
;BR IF NO 

;MAX. ERRORS FOR THIS TEST OCCURRED? 
•,BR IF NO 
;LOOP ON ERROR? 
;BR IF NO 

;SET LOOP ADDRESS TO LAST SCOPE 
;ZERO THE ERROR FLAG 

JCLEAR THE NUMBER OF ITERATIONS TO MAKE 
; ESCAPE TO THE NEXT TEST 
; INHIBIT ITERATIONS? 
;BR IF YES 

;IF FIRST PASS OF PROGRAM 

; INHIBIT ITERATIONS 

; INCREMENT ITERATION COUNT 

; CHECK THE NUMBER OF ITERATIONS MADE 

;BR IF MORE ITERATION REQUIRED 
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2181 


006770 


01 2737 


000001 


001104 


1$: 


MOV 


#1 , SICNT 


{REINITIALIZE THE ITERATION COUNTER 


2182 


006776 


01 3737 


001216 


001170 




MOV 


SMXCNT, STIMES 


;SET NUMBER OF ITERATIONS TO DO 


2183 


007004 


105237 


001 102 




SSVLAD: 


INCB 


STSTNM 


; COUNT TEST NUMBERS 


2184 


007010 


01 1637 


001 106 






MOV 


(SP),$LPADR 


5 SAVE SCOPE LOOP ADDRESS 


2185 


007014 


01 1637 


001 1 10 






MOV 


(SP),$LPERR 


;SAVE ERROR LOOP ADDRESS 


2186 


007020 


005037 


001 172 






CLR 


SESCAPE 


; CLEAR THE ESCAPE FROM ERROR ADDRESS 


2187 


007024 


1 12737 


000001 


001 115 




MOVB 


#1 .SERMAX 


;ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 


2188 


007032 


01 3777 


001 102 


172102 


SOVER: 


MOV 


STSTNM, ©DISPLAY 


{DISPLAY TEST NUMBER 


2189 


007040 


013716 


001106 






MOV 


SLPADR, (SP) 


; FUDGE RETURN ADDRESS 


2190 


007044 


000002 








RTI 




{FIXES PS 
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SEO 0048 

SEQ 0048 



2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
'2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 



007046 
007046 
007050 
007054 
007060 
007062 
007064 
007070 
007072 
007076 
007100 
007102 
007106 
0071 10 
0071 14 
0071 16 
007122 
007126 
007132 
007134 
007142 
007150 
007152 
007156 
007162 
007166 
007174 
007202 
007210 
007212 
007216 
007222 
007222 
007226 
007230 
007232 
007234 
007242 
007244 
007250 
007254 
007256 



104406 
01 1437 
01 1537 
105714 
100003 
112714 
000406 
032714 
001003 
000005 
013714 
022626 
005737 
002002 
01 1637 
016616 
105237 
001775 
013777 
032777 
001402 
104401 
005237 
01 1637 
162737 
1 1 7737 
032777 
001004 
004737 
104401 

005777 
100002 
000000 
104406 
032777 
001402 
01 3716 
005737 
001402 
013716 



001162 
001164 



000020 
000040 



001172 
177774 
001 103 

001102 
002000 

001 174 
001112 
001116 
000002 
171716 
020000 

007276 
001201 



172000 
171770 



0011 16 
001 114 
171730 



.SBTTL ERROR HANDLER ROUTINE 

*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
*SAVE THE ERF.aR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AND GO TO TYPERR ON ERROR 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



*SW15=1 
«SW13«1 
*SW10«1 

•I'Swogsi 

■i-CALL 



102$: 
7$: 



20$: 

2$: 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 



001000 171676 3$: 



001110 
001172 



ERROR 


H it tKKUK» 


iml ANU N = cHHuK ITcM NUMocR 


CKSWR 




;|TEST FOR CHANGE IN SOFT—SWR 






, bAVc THt TA1 1 STATUS 




@TADB,@#$REG1 


;SAVE THE DATA BUFFER 


TSTB 


@TACS 


;IF "XFER REQ" IS UP KNOCK IT 


BPL 






MOVB 


(f I LBS ,@TAC5 










BIT 


ffREADY ,@TACS 


; IS READY SET? 


BNE 


101 5 


; BR IF YES 


RESET 




; REGAIN CONTROL 






1 RESTORE THE TACS 


rMo 


/ CD \^ / CD \ J. 


; POP THE STACK 


TST 


ASKKEY 


; MANUAL LOOPING? 


BGE 


102$ 


;BR IF NO 


MOV 


(5P) ,$ESCAPE 


; SETUP FOR MANUAL ESCAPE 


MOV 


-4(SP) , (SP) 


;GET PC+2 OF ERROR 




SERFLG 


;Sti 1 Mc cRKOR rLAQ 




7$ 


{DON'T lET THE FLAG GO TO ZERO 


MOV 


5TSTNW1 , I SPLAT 


; DISPLAY TEST NUMBER AND ERROR FLAG 




ff Di T . ) PaWK 


; BELL ON ERROR? 


BEQ 


1 $ 


;N0 SKIP 




, $BELL 


;KlN(a ocLL 






; COUNT THE NUMBER OF ERRORS 


MOV 


{si') , $ERRPC 


;GET ADDRESS OF ERROR INSTRUCTIOM 


SUB 


#2,$ERRPC 




MOVB 


@$ERRPC,$ITEMB 


; STRIP AND SAVE THE ERROR ITEM CODE 


BIT 


il'BITIS.PSWR 


;SKIP TYPEOUT IF SET 


BNE 


20$ 


;SKIP TYPEOUTS 


JSR 


PC, TYPERR 


;G0 TO USER ERROR ROUTINE 


TYPE 


,$CRLF 




TST 


@SWR 


SHALT ON ERROR 


BPL 


3$ 


jSKIP IF CONTINUE 


HALT 




;HALT ON ERROR! 


CKSWR 




JTEST FOR CHANGE IN SOFT-SWR 


BIT 


*BIT09,@SWR 


5 LOOP ON ERROR SWITCH SET? 


BEQ 


4$ 


;BR IF NO 


MOV 


SLPERR, (SP) 


; FUDGE RETURN FOR LOOPING 


TST 


SESCAPE 


; CHECK FOR AN ESCAPE ADDRESS 


BEQ 


5$ 


;BR IF NONE 


MOV 


SESCAPE,(SP) 


{FUDGE RETURN ADDRESS FOR ESCAPE 
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2247 
2248 
2249 
2250 
2251 
2252 



007262 
007262 
007270 
007272 
007274 
007274 



022737 

001001 
000000 



ERROR HANDLER ROUTINE 



SEQ 0049 



00643a 000042 



CMP 
BNE 
HALT 



#$ENDAD,l»j^42 
6$ 



SEQ 0049 



; ;ACT-1 1 AUTO-ACCEPT? 
; {BRANCH IF NO 

; {YES 

I {RETURN 
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SEO 00S6 

SEO 00i@ 



2254 








;THIS ROUTINE 


WILL TYPEOUT THE 


ERROR 


MESSAGES 


2255 


007276 


1 04401 


001201 


typerr: 


TYPE 


,$CRLF 




;TYPE A CARRIAGE RETURN S LINE FEEC 


2256 


007302 


1 04401 






TYPE 






;TYPE THE FUNCTION BEING PERF0R8SED 


2257 


007304 


000000 




1«FUNC: 









;MESSAGE POINTER GOES HtRE 


2258 


007306 


1 04401 


001 201 




TYPE 


,$CRLF 






2259 


0073 1 2 


162737 


000002 


001204 


SUB 


#2,@#SAVPC 




; ADJUST THE MAIN FLOW PC 


2260 


007320 


01 0046 






MOV 


R0,-{SP) 




;SAVE RO 


2261 


007322 


1 1 3700 


001 1 14 




MOVB 


@#$ITEMfl,RO 




J PICKUP THE ITEM INDEX 


2262 


007326 


005300 






DEC 


RO 




; ADJUST THE INDEX 


2263 


007330 


006300 






ASL 


RO 




ISO IT WILL mm FOR 


2264 


007332 


006300 






ASL 


RO 




;THE ERROR TABLE 


2265 


007334 


006300 






ASL 


RO 






2266 


007336 


062700 


001 270 




ADO 


#$ERRTB,RO 




;FORM THE TABLE POINTER 


2267 


007342 


01 2037 


007350 




my 


(R0)4-, 1$ 




{PICKUP "ERROR MESSAGE" POINTER 


2268 


007346 


1 04401 






TYPE 






{TYPE "ERROR MESSAGE" 


2269 


007350 


000000 




1$: 









{"ERROR MESSAGE POINTER" GOES HERE 


2270 


007352 


01 2037 


007362 




MOV 


(R0)+,2$ 




{PICKUP "DATA HEADER" POINTEH 


2271 


007356 


001402 






BEQ 


3$ 




{IF "0" DON'T TYPE 


2272 


007360 


104401 






TYPE 






{TYPE "DATA HEADER 




007362 


000000 




2$: 









{"DATA HEADER" POINTER GOES HERE 


2274 


007364 


01 2000 




3$: 


MOV 


(R0)+,R0 




{PICKUP "DATA POINTER" 


2275 


007366 


001004 






BNE 


5$ 




{IF THERE IS DATA TO TYPE GO DO IT 




007370 


1 2600 




4S: 


MOV 


(SP)-«-, RO 




{RESTORE RO 


2277 


007372 


1 04401 


001 201 




TYPE 


,$CRLF 




{TYPE A CAR RAGE RETURN&LINE FEED 


2278 


007376 


000207 






RTS 


PC 




{RETURN 




A A A A 

UU / 40U 






5$: 










2280 


007400 


013046 






MOV 


@(R0)-f,-(SP) 


IJSAVE ®(R0)+ FOR TYPEOUT 


2281 














5 : TYPE DATA 


2282 


007402 


104402 






TYPOC 




!|G0 


TYPE— OCTAL ASCII (ALL DIGITS) 


2283 


007404 


005710 






TST 


(RO) 




{TERMINATOR? 


2284 


007406 


001770 






BEQ 


4$ 




{BR IF YES 


2285 


007410 


104401 


007416 




TYPE 


,6$ 




{TYPE 2 SPACES 


2286 


007414 


000771 






BR 


5$ 




; LOOP 


2287 


007416 


020040 


000 


6$: 


•ASCII 


/ / 




{ASCII STRING OF 2 SPACES 


2288 




007422 






.EVEN 
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2289 ;;*****«******«**********iS*it>iSi******************«* ********** 

2290 



2291 










.SBTTL 




ROUTINE TO ASK THE OPERATOR WHAT ORIVE(S) TO TEST 


2292 


















2293 










{CALL 








2294 












JSR 


PC,##ASKDRV 




2295 












RETURN 




{NOTE: RO AND R1 ARE DESTROYED 


2296 


















2297 


007422 


104401 


015136 




ASK DRV : 


TYPE 


.MSGDRV 


{<CRLF>"DRIVE(S)? " 


2298 


007426 


005037 


001240 






CLR 


DRVKEY 




2299 


007432 


104410 








RDLIN 




{GO GET A DRIVE 


2300 


007434 


012600 








MOV 


(SP)+,RO 


{SETUP TO CHECK FOR VALID DRIVE(S) 


2301 


007436 


105710 








TSTB 


@>R0 


{WAS A DRIVE SELECTED? 


2302 


007440 


001425 








BEQ 


NOTLGL 


{BR IF NO 


2303 


007442 


012701 


Oai 240 






MOV 


if DRVKEY, R1 




2304 


007446 


122710 


000101 




LOOP: 


CMPB 




{WAS DRIVE "A" SELECTED? 


2305 


007452 


001002 








BNE 


NOTA 


{BR IF NO 


2306 


007454 


1 1 2021 








MOVB 


(R0)+,(R1 )+ 


{SET KEY FOR DRIVE "A" 


2307 


007456 


00041 1 








BR 


NEXT 




2308 


007460 


122710 


000102 




NOT A: 


CMPB 


«'B,@RO 


{WAS DRIVE "B" SELECTED? 


2309 


007464 


001002 








BNE 


NOTB 


{BR IF NO 


2310 


007466 


112021 








MOVB 


(R0)+, (R1 )+ 


{SET KEY FOR DRIVE "B" 


231 1 


007470 


000404 








BR 


NEXT 




2312 


007472 


122710 


000054 




NOTB: 


CMPB 


j!f54,@R0 


{WAS A COMMA TYPED? 


2313 


007476 


001X506 








BNE 


NOTLGL 


{BR IF NO 


2314 


007500 


105720 








TSTB 


(RO)-i. 


{DUMP THE COMMA 


2315 


007502 


105710 






NEXT S 


TSTB 


mo 


{TERMINATOR? 


2316 


007504 


001406 








BEQ 


EXIT 


{BR IF YES 


2317 


007506 


022701 


001242 






CMP 


#DRVKEY4-2,R1 


{TWO DRIVES SELECTED? 


2318 


007512 


101355 








BHI 


LOOP 


{BR IF NO 


2319 


007514 


104401 


001200 




NOTLQL". 


TYPE 


,$OUES 


{ILLEGAL INPUT DETECTED 


2320 


007520 


000740 








BR 


ASKDRV 


{GO TRY AGAIN 


2321 


007522 


005737 


001240 




exit: 


TST 


DRVKEY 


{ANY DRIVE SELECTED? 


2322 


007526 


001772 








BEQ 


NOTLGL 


;m IF NO 


2323 


007530 


000207 








RTS 


PC 




2324 


















2325 












2326 










{CALL 








2327 










{ JSR 


PC.WASKADR 




2328 


















2329 


007532 


010046 






ASKAOR: 


MOV 


RO,-(SP) 


{SAVE RO 


2330 


007534 


104401 


015152 




1$: 


TYPE 




{ "TACS?" 


2331 


007540 


10441 1 








RDOCT 




{GET VALUE 


2332 


007542 


01 2600 








MOV 


(SP)+,RO 


{PICK UP THE OCTAL NUMPrR 


2333 


007544 


001423 








BEQ 


3$ 


{IF »0" USE OLD VALUES 


2334 


007546 


020027 


160000 






CMP 


R0,«160000 


{MAKE SURE IT IS A BUS ADDRESS 


2335 


007552 


103770 








BLO 


IS 




2336 


007554 


01 0037 


001220 






MOV 


RO.WTACSL 


{SAVE TOE TACS 


2337 


007560 


062700 


000002 






ADD 


#2,R0 


{STEP TO TADB ADDRESS 


2338 


007564 


01 0037 


001224 






MQV 


R0,@4>TA0BL 


{AND SAVE IT 


2339 


007570 


01 3737 


001220 


001222 




MOV 


##TACSL,WTACSH 


{SET UP TACS UPPER 


2340 
2341 


007576 


005237 


001222 






INC 


®#TACSH 


{BYTE POINTER 


2342 


007602 


01 3737 


001224 


001226 




MOV 


»#TADBL,»#TADBH 


{SET UP TADB UPPER 


2343 


007610 


005237 


001226 






XNC 




{BYTE POINTER 


2344 


007614 


104401 


015162 




3S: 


TYPE 


.MSGVEC 


; "VECTOR?- 
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SEQ 0052 



2345 


007620 


10441 1 




RDOCT 








2346 


007622 


01 2600 




MOV 


(SP)+,R0 






2347 


007624 


00141 1 




BEQ 


5$ 






2348 


007626 


020027 


001000 


CMP 


RO.^IOOO 


JMAKE SURE ADDRESS IS IN VECTOR 


AREA 


2349 


007632 


103370 




BHIS 


3S 






2350 


007634 


01 0037 


001230 


MOV 


RO,@#TAVEC 


;SAVE AS VECTOR ADDRESS 




2351 


007640 


062700 


000002 


ADD 


#2,RD 






2352 


007644 


01 0037 


001232 


MOV 


R0,@#TAVEC-s-2 






2353 


007650 


104401 


015172 SS: TYPE 


.MSGPRI 


JASK FOR PRIORITY 




2354 


007654 


10441 1 




RDOCT 








2355 


007656 


01 2600 




MOV 


(SP)+,RO 






2356 


007660 


001413 




BEQ 


6$ 


;IF -0- USE OLD VALUE 




2357 


007662 


020027 


000007 


CMP 


R0,#7 


;MAKE SURE ITS VALID 




2358 


007666 


101370 




BHI 


5$ 






2359 


007670 


000300 




SWAB 


RO 


;PUT INTO HIGH BYTE 




2360 


007672 


006200 




ASR 


RO 


;AND SHIFT 




2361 


007674 


006200 




ASR 


RO 


;INTO PROPER 




2362 


007676 


006200 




ASR 


RO 


; POSITION 




2363 


007700 


042700 


177437 


BIC 


*^"C<340>,R0 


:SAVE ONLY PRIORITY BITS 




2364 


007704 


01 0037 


001234 


MOV 


RO,@#TAPRIO 


; STORE IT AWAY 




2365 


007710 


104401 


015204 6$: TYPE 


.MTACS 


;TACS=» 




2366 


007714 


01 3746 


001220 


MOV 


TACSL,-(SP) 


;;SAVE TACSL FOR TYPEOUT 




2367 


007720 


104402 




TYPOC 




; ;G0 TYPE— OCTAL ASCIKALL DIGITS) 




2368 


007722 


104401 


015213 


TYPE 


.MTADB 


j-TADBs- 




2369 


007726 


01 3746 


001224 


MOV 


TADBL,-(SP) 


;;SAVE TADBL FOR TYPEOUT 




2370 


007732 


104402 




TYPOC 




; ;G0 TYPE— OCTAL ASCIKALL DIGITS) 




2371 


007734 


104401 


0155!22 


TYPE 


.MTAVEC 


; " VECTORS " 




2372 


007740 


01 3746 


001230 


MOV 


TAVEC,-(SP) 


; ;SAVE TAVEC FOR TYPEOUT 




2373 


007744 


104402 




TYPOC 




; ;G0 TYPE— OCTAL ASCIKALL DIGITS) 




2374 


007746 


104401 


015233 


TYPE 


.MTAPRI 


; "PRIORITYa" 




2375 


007752 


01 3746 


001234 


MOV 


TAPRIO,-(SP) 


JJSAVE TAPRIO FOR TYPEOUT 




2376 


007756 


104402 




TYPOC 




; ;G0 TYPE— OCTAL ASCIKALL DIGITS) 




2377 


007760 


104401 


015246 


TYPE 


,MSGOK 


; "OK?" 




2378 


007764 


104407 




RDCHR 




?G0 READ ONE CHARACTER 




2379 


007766 


012600 




MOV 


{SP)-r,RO 


;GET IT 




2380 


007770 


022700 


00001S 


CMP 


#15, RO 


;IS IT »CR"? 




2381 


007774 


001406 




BEQ 


7$ 


; BRANCH IF YES 




2382 


007776 


022700 


000131 


CMP 


#' Y.RO 


; IS IT "Y-? 




2383 


010002 


001403 




BEQ 


7$ 


; IT WAS 




2384 


010004 


104401 


001200 


TYPE 


,$QUES 


;TYPE «?" 




2385 


01 0010 


000651 




BR 


1$ 


;AND LET HIM CORRECT THEM 




2386 


010012 


104401 


015254 7$: TYPE 


,MYES 


;TYPE OUT "YES" 




2387 


010016 


012600 




MOV 


(SP)+,RO 


•.RESTORE RO 




2388 


010020 


000207 




RTS 


PC 


:AND RETURN 




2389 
















2390 
















2391 












2392 








THIS ROUTINE 


WILL CHANGE AN .ASCII STRING TO AN OCTAL NUMBER 




2393 
















2394 








REGISTER R1 MUST BE INITILIZED 


BEFORE ENTERING 




2395 
















2396 








call: 








2397 








asR 


R3,@#A20CT 


jCALL THE ROUTINE 




2398 








POINTER 


; ADDRESS OF THE FIRST CHARACTER 


IN THE 


2399 












{STRING MUST BE TERMINATED BY A 


BYTE OF 


2400 








ERROR 


RETURN 


; RETURN HERE IF ILLEGAL CHARACTER 



TA11 MOTION TEST 
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!TADD 


P1 1 23-MAR-7a 


08:34 




ROUTINE 


TO CHANGE AN 


.ASCII STRING TO OCTAL 


2401 














;0R STRING IS TO LONG 


2402 










NORMAL 


RETURN 


; OCTAL NUMBER IS IN R1 


2403 














2404 


010022 


01 0046 




A20CT: 


MOV 


RO.-(SP) 


'.SAVE RO 


2405 


010024 


012300 






MOV 


(R3)-i-.R0 


;PICK UP THE POINTER 


2406 


010026 


012737 


000006 


010042 


MOV 


f6,a$ 


;MAX. NUMBER OF CHAR. 'S ALLOWED 


2407 


010034 


105710 




1$: 


TSTB 


(RO) 


; TERMINATOR? 


2408 


010036 


001420 






BEQ 


3S 


;BR IF YES 


2409 


010040 


005327 






DEC 


(PC) + 


; COUNT THIS CHARACTER 


2410 


010042 


000000 




2§: 









241 1 


010044 


002416 






BLT 


4$ 


;BR IF TO MANY CHARACTERS IN THE 


2412 


010046 


121027 


000060 




CMPB 


(R0),#'0 


; CHECK THIS CHAR. IS BETWEEN 


2413 


010052 


002413 






BLT 


4$ 


;0 AND 7 


2414 


010054 


121027 


000067 




CMPB 


(R0),#'7 




2415 


010060 


003010 






BGT 


4$ 




2416 


010062 


142710 


177770 




BICB 


#-C7,(R0) 


; STRIP AWAY THE ASCII CODE 


2417 


010066 


006301 






ASL 


R1 


; POSITION THE FOR THIS CHAR 


2418 


010070 


006301 






ASL 


R1 




2419 


010072 


006301 






ASL 


R1 




2420 


010074 


152001 






BIS3 


(R0)<»-,R1 


;SET IN THIS DIGIT 


2421 


010076 


000756 






BR 


1$ 


;G0 GET THE NEXT CHARACTER 


2422 


010100 


005723 




3$: 


TST 


(R3)4. 


; INCREMENT FOR NORMAL RETURN 


2423 


010102 


012600 




4$: 


MOV 


(SP)+,R0 


; RESTORE RO 


2424 


010104 


000203 






RTS 


R3 


; RETURN TO USER 



SEQ 0053 



SEQ 0053 
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2425 












************************** 




2426 








[this 


ROUTINE 


WILL INPUT THE ADDRESSES 


OF "TEST" AND "SCOPE LOOP" FROM THE TTY 


2427 
2428 


010106 






T. SET loop: 






2429 


010106 


104401 


015316 




TYPE 


.MTEST 


JTYPE "TEST PC?" 


2430 


0101 12 


104410 






RDLIN 




;GET AN ASCII STRING 


2431 


0101 14 


01 2637 


010142 




MOV 


(SP)+,11$ 


;GET FIRST ADDRESS OF INPUT BUFFER 


2432 


010120 


105777 


000016 




TSTB 


®1 1$ 


; FIRST CHAR. A "CR" ? 


2433 


010124 


001442 






BEO 


3$ 


;BR IF YES GO CLEAR THE LOOP KEY 


2434 


010126 


022626 






CMP 


(SP)+, (SP)+ 


; POP POP 


2435 


010130 


01 0137 


010244 




MOV 


R1 ,SAVR1 


;SAVE Rl 


2436 


010134 


005001 






CLR 


R1 


;SET PARTIAL TO ZERO 


2437 


010136 


004337 


010022 




USR 


R3,WA20CT 


;G0 CHANGE ASCII TO OCTAL 


2438 


010142 


000000 




11$: 







; POINTER TO STRING 


2439 


010144 


000760 






BR 


T. SET LOOP 


•.ERROR RETURN— GO TRY AGAIN 


2440 


010146 


005721 






TST 


(R1)4- 


; JUST INCREMENTING 


2441 


010150 


010116 






MOV 


R1 , (SP) 


;PUT "TEST PC" ; ON THE STACK 


2442 


010152 


104401 


015331 


5S: 


TYPE 


.MLOOP 


•.TYPE "LOOP PC ?" 


2443 


010156 


104410 






RDLIN 




:GET A STRING OF ASCII 


2444 


010160 


01 2637 


010200 




MOV 


(SP)4-,12$ 


;GET FIRST ADDRESS OF INPUT BUFFER 


2445 


010164 


105777 


000010 




TStB 


@12$ 


JJUST A "CR" ? 


2446 


010170 


001410 






BEQ 


IS 


;BR IF YES 


2447 


010172 


005001 






CLR 


R1 


JCLEAR PARTIAL 


2448 


010174 


004337 


010022 




USR 


R3,®#A20CT 


; CHANGE TO 6CTAL 


2449 


010200 


000000 




12$: 









2450 


010202 


000763 






BR 


5$ 




2451 


010204 


01 0137 


001106 




MOV 


R1 .WSLPADR 


J SAVE SCOPE LOOP ADDRESS 


2452 


010210 


000402 






BR 


2$ 


;G0 SET LOOP KEY 


2453 


010212 


01 1637 


001106 


1$: 


MOV 


(SP),@#SLPADR 


;SAVE SCOPE LOOP ADDRESS 


2454 


010216 


01 1637 


001110 


2$: 


MOV 


(SP),@<S'$LPERR 


; ERROR LOOP SAME AS THE TEST ADDRESS 


2455 


010222 


012737 


177777 006614 




MOV 


ff-i ,®#LOOPKEY 


;SET THE LOOP KEY 


2456 


010230 


000402 






BR 


4$ 




2457 


010232 


005037 


006614 


as: 


CLR 


@#LOOPKEY 


•.CLEAR THE LOQP KEY 


2458 


010236 


013701 


010244 


4$: 


MOV 


SAVR1 ,R1 


•.RESTORE Rl 


2459 


010242 


000002 






RTI 




;BYE BYE 


2460 


010244 


000000 




SAVR1 







;HOLD Rl HERE 
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2461 

2462 *$«**««****!»«***«!j<**«!S!*********S»************** 



2463 










;THIS 


ROUTINE 


WILL SELECT THE NEXT 


DRIVE TO TEST 


2464 


















2465 


010246 








T.SELDRV: 






2466 


010246 


032777 


000200 


1 70664 




BIT 


(i'SW07,«iSWR 


;LOCK ON CURRENT DRIVE? 


2467 


010254 


001041 








BNE 


5$ 


;BR IF YES 


2468 


010256 


01 0146 








MOV 


Rl ,-(SP) 


;SAVE Rl ON THE STACK 


2469 


010260 


01 3701 


001236 






MOV 


DRIVE, Rl 


J GET THE DRIVE 


2470 


010264 


1 1 1 137 


001250 






MOVB 


(Rl ) ,©#CURDRV 


;SAVE CURRENT DRIVE 


2471 


010270 


121 127 


000101 






CMPB 


(Rl ),(|f'A 


; IS IT DRIVE "A"? 


2472 


010274 


001406 








BEQ 


1$ 


;BR IF YES 


2473 


010276 


052714 


000400 






BIS 


#UNIT.«TACS 


; SELECT DRIVE "B" 


2474 


010302 


01 2737 


001262 


001256 




MOV 


#RWDB,9#RWDFLG 


;SET REWIND POINTER TO "8" 


2475 


010310 


000405 








BR 


2S 




2476 


010312 


042714 


000400 




IS: 


BIC 


#UNIT,»TACS 


; SELECT DRIVE "A" 


2477 


010316 


01 2737 


001260 


001356 




MOV 


#RWA,i>#RWOFLG 


;SET REWIND POINTER TO "A" 


2478 


010324 


005201 






2$: 


INC 


Rl 


; INCREMENT TO THE NEXT DRIVE 


2479 


010326 


10571 1 








TSTB 


(Rl) 


;OUT OF DRIVES TO TEST? 


2480 


010330 


001002 








BNE 


3$ 


;BR IF NO 


2481 


010332 


01 2701 


001240 






MOV 


#DRVKEY,R1 


; RESET TO THE FIRST DRIVE 


2482 


010336 


01 0137 


001236 




3$: 


MOV 


Rl .DRIVE 


-.SAVE FOR NEXT TIME 


2483 


010342 


032777 


001000 


170570 




BIT 


#swog,@st^R 


J IS SWITCH 9«1? 


2484 


010350 


00.1002 








BNE 


4S 


J BR IF YES 


2485 


010352 


105037 


001103 






CLRB 




; CLEAR THE ERROR INDICATOR 


2486 


010356 


012601 






4$: 


MOV 


(SP)+,R1 


•.RESTORE Rl 


2487 


010360 


000002 






5$: 


RTI 







TA1 1 MOTION TEST 



CZTADD 


P11 23-MAR-78 


08:34 


2488 








2489 








2490 


010362 






2491 


010362 


01 1600 




2492 


010364 


01 0037 


001204 




010370 


012737 


015521 


2494 


010376 


01 2003 






010400 


01 2301 






010402 


01 1303 






010404 


01 3002 




- 


010406 


005037 


010446 


2499 


010412 


01 0016 




2500 


010414 


005037 


001206 


2501 


010420 


032777 


000010 




010426 


001401 




2503 


010430 


000002 




2504 


010432 


005303 






010434 


002001 




2506 


010436 


000002 




2507 


010440 


005237 


001206 


2508 


010444 


122162 


000000 


2509 


010450 


001006 




251 


010452 


005237 


010446 


251 1 


010456 


042737 


177774 


251 2 


010464 


000762 




251 3 


010466 


1 14137 


001 126 


251 4 


010472 


063702 


010446 


251 5 


010476 


1 1 1237 


001 124 


2516 


010502 


104010 




251 7 








2518 








251 9 


010504 


01 1637 


001204 


2520 


010510 


01 2737 


015502 


2521 


010516 


004037 


012224 


2522 


010522 


000101 




2523 


010524 


005037 


177776 


2524 


010530 


004037 


011716 


2525 


010534 


104003 




2526 


010536 


104004 




2527 


010540 


004037 


012014 


2528 


010544 


104002 




2529 


010546 


104002 




2530 


010550 


000002 




2531 


010552 


104002 
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SEO 0056 



SEO 005® 



JTHIS ROUTINE WILL COMPARE THE READ AND 
T.BLKCMP: 



WRITE BUFFERS 



is: 



4$: 

a$: 



010446 



MOV 


(SP) ,R0 


MOV 


RO,f>*SAVPC 


MOV 


#MBUFCK,@#MFUNC 


MOV 


(R0)+,R3 


MOV 


(R3)+,R1 


MOV 


(R3),R3 


MOV 


@(R0)+,R2 


CLR 


2$+2 


MOV 


RO,(SP) 


CLR 


@#BYTNUM 


BIT 


#SW03,@SWR 


BEQ 


IS 


RTI 




DEC 


R3 


BGE 


4$ 


RTI 




INC 


©#BYTNUM 


CMPB 


(R1 )+,0(R2) 


BNE 


3$ 


INC 


2$+2 


BIC 


#''C3,2$+2 


BR 


1$ 


MOVB 


-{R1 ) ,i>*^$BDDAT 


ADD 


2$+2,R2 


MOVB 


(R2) ,@i!^$GDDAT 


ERROR 


10 



;THIS ROUTINE WILL WRITE A FILE GAP ON 
T.WFG: MOV (SP),@#SAVPC 

MOV #MXWFG,»#MFUNC 



IS: 



USR 
XWFGl 
CLR 
JSR 
ERROR 
ERROR 
USR 
ERROR 
ERROR 
RTI 
ERROR 



RO.O/^DO.CMD 

INT. EN! GO 
WPS 

R0,9#WAITFLAG 

3 
4 

R0,#(!> FLAGS 
2 
2 



GET THE PC OF THE CALL 
SAVE THE PC OF THE CALL 
POINTER FOR .ASCII MESSAGE 
PICKUP THE READ LINK ADDRESS 
PICKUP THE READ BUFFER ADDRESS 
PICKUP THE READ BUFFER SIZE 
PICKUP THE WRITE BUFFER ADDRFSS 
ZERO THE OFFSET 
SET THE RETURN 
ZERO THE BYTE NUMBER 
COMPARE DATA BUFFERS? 
BR IF YES 
NO GO BACK 

CHECK FOR THE TERMINATION 
BR IF MORE BYTES TO COMPARE 

RETURN 

COUNT THIS BYTE 

COMPARE READ AND WRITE BUFFER 

BR IF NOT EQUAL 

INCREMENT WRITE BUFFER INDEX 

DON'T LET IT GET BIGGER THAN 3 

;GET THE RECEIVED BYTE 
FORM ADDRESS 
;GET THE EXPECTED BYTE 
; RECEIVED AND EXPECTED DATA NOT EQUAL 

k ****************** ******** 
THE TAPE 
jSAVE THE PC OF THE CALL 
;SET MESSAGE POINTER FOR "WFG" 
;G0 START A "WFO" 

; ALLOW INTERRUPTS 
;G0 WAIT FOR A FLAG 
;N0 FLAGS OCCURRED 
;N0 INTERRUPT 

; NORMAL RETURN FIND CUT WHAT FLAG 

; RETURN HERE IF "XFER REO" AND "READY" 
; RETURN HERE IF "XFER REQ" »1 
•."RETURN HERE IF " READY »«1 AND » ERROR" 
;* READY" si AND »ERR0R"«1 
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2532 










• ; * 


*********************************************************** 


2533 










;THIS 


ROUTINE 


WILL WRITE A RECORD ON THE 


TAPE 


2534 


010554 


01 1637 


001204 




T.WRIT 


! MOV 


(SP) ,@#SAVPC 


SAVE PC OF CALL 


2535 


010560 


01 2737 


015353 


007304 




MOV 


#MXWRIT,@#MFUNC 


POINTER FOR .ASCIZ OF "WRITE" 


2536 


010566 


017602 


000000 






MOV 


®(SP) ,R2 


GET THE WRITE LINK POINTER 


2537 


010572 


062716 


000002 






ADD 


#2,(SP) 


ADJUST THE RETURN 


2538 


010576 


01 2201 








MOV 


(R2)+,R1 


GET FIRST ADDRESS OF WRITE BUFFER 


2539 


010600 


005037 


012222 






CLR 


9#CRC.WD 


CLEAR THE CRC WORD 


2540 


010604 


005037 


010676 






CLR 


6$+2 


ZERO THE INDEX 


2541 


010610 


012202 








MOV 


(R2)+,R2 


GET NUMBER OF BYTE TO WRITE 


2542 


010612 


003001 








BGT 


2$ 


CHECK FOR LEGAL NUMBER 


2543 


010614 


10401 1 








ERROR 


11 


BAD NUMBER OF BYTES 


2544 


010616 


004037 


012224 




2$: 


JSR 


RO,e»#DO.CMD 


GO START A "WRITE" 


2545 


010622 


000103 








XWRITE! INT.ENIGO 




2546 


010624 


005037 


177776 




3$! 


CLR 


@#PS 


ALLOW INTERRUPTS 


2547 


010630 


004037 


011716 






JSR 


RO,»#WAITFLAG 


WAIT FOR A FLAG • 


2548 


010634 


104003 








ERROR 


3 


NO FLAGS OCCURRED 


2549 


010636 


104004 








ERROR 


4 


INTERRUPT FAILED 


2550 


010640 


005037 


001254 






CLR 


P#WAITKEY 


CLEAR THE WAIT FOR INTERRUPT KEY 


2551 


010644 


01 2737 


000340 


17777S 




MOV 


#340,IP#PS 


LOCK OUT THE WORLD 


2552 


010652 


004037 


012014 






JSR 


RO,W FLAGS 


WAIT FLAG OCCURRED? 


2553 


010656 


104002 








ERROR 


2 


"READY"=0 & "XFER REQ" «kO 


2554 


010660 


000402 








BR 


4$ 


-XFER REQ-xl 


2555 


010662 


104005 








ERROR 


5 


"READY"=1 & "ERROR^sO 


2556 


010664 


104002 








ERROR 


2 


"READY"=1 S "ERROR^sl 


2557 


010666 


005302 






4$: 


DEC 


R2 


NEED TO WRITE A BYTE ON TAPE 


2558 


010670 


002417 








BLT 


5$ 


BR IF NO 


2559 


010672 


005000 








CLR 


RO 




2560 


010674 


156100 


000000 




SS: 


BISB 


0(R1 ) ,R0 


PICKUP BYTE FOR TRANSFER 


2561 


010700 


11 0015 








MOVB 


RO,@TADB 


TRANSFER A BYTE TO THE TA11 


2562 


010702 


004737 


012102 






JSR 


. PC,@#DO.CRC 


CALCULATE CRC FOR THIS BYTE 


2563 


01 0706 


005237 


010676 






INC 


6$+2 


INCREASE THE I'^DEX 


2564 


010712 


042737 


177774 


010676 




BIC 


#~C3,6$+2 


KEEP IT LESS THAN 4 


2565 


010720 


01 2777 


012340 


170302 




MOV 


*SERV,«»TAVEC 


SETUP TO SERVICE THE INTERRUPT 


2566 


010726 


000736 








BR 


3$ 


LOOP 


2567 


010730 


01 3761 


012222 


000004 


S$: 


MOV 


©#CRC.WD,4(R1 ) 


SAVE THE CRC WORD 


2568 


010736 


004037 


012224 






JSR 


R0,9#DO.CMD 


START A "ILBS" 


2569 


010742 


000122 








XWRITEIINT.EN! ILBS 




2570 


010744 


005037 


177776 






CLR 


mps 


ALLOW INTERRUPTS 


2571 


010750 


004037 


011716 






JSR 


R0,@#WAITFLAG 


WAIT FOR A FLAG 


2572 


010754 


104003 








ERROR 


3 


NO FLAG 


2573 


010756 


104004 








ERROR 


4 


NO INTERRUPT 


2574 


010760 


004037 


012014 






JSR 


RO,M FLAGS 


WHAT FLAG IS SET? 


2575 


010764 


104002 








ERROR 


2 


NONE ("XFER REQ"=«0 & "KEAm^^Q) 


2576 


010766 


104002 








ERROR 


2 


"XFER REO" 


2577 


010770 


000002 








RTI 




; "READY" 


2578 


010772 


104002 








ERROR 


2 


"READY" & "ERROR" 
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SEO 0058 

SEQ 9058 



[this routine will read a RECORD FROfa THE TAPE 



CO 


010774 




00 1 204 




T.READ: 


MOV 


(SP) ,§>#SAVPC 


;SAVE THE PC OF THE CALL 




nil f\nn 


01 2737 


01 5361 


007304 




MOV 


/I^MXREAD,@<^MFUNC 


;SET POINTER OF .ASCIZ MESSAGE 




nil nnR 


1 7602 


000000 






MOV 


@(SP} .R2 


;GET THE READ LINK POINTER 


2584 




06271 6 


000002 






ADD 


#2, (SP) 


; ADJUST FOR RETURN 




011016 


1 0200 








MOV 


R2,R0 


; PICKUP AND SAVE THE "CRC THAT 




ni 1 n9Q 


fi 1 Knnn 

U 1 DUUU 


000034 






MOV 


WLNK1-RLNK1 (RO) , RO 


; WAS CALCULATED ON THE WRITE 




01 1 024 




000004 


001 210 




MOV 


4{R0) ,RCRCO 


; DATA FOR THIS BLOCK 




ni 1 


1 220 1 








MOV 


(R2)+,R1 


;GET ADDRESS OF BUFFER 


9^RQ 


ni n^4 


1 2202 








MOV 


iR2)+,R2 


;GET NUMBER OF BYTES 




01 1 036 


fin "500 1 








BGT 




;MAKE SURE NUMB'.l IS LEGAL 


5^Q1 


n 1 1 n/in 










ERROR 


11 


; ILLEGAL NUMBER OF BYTES 


O^QO 




00 503 / 


01 2222 




2$t 


CLR 


@j^CRC.WD 


; CLEAR CRC WORD 




n 1 1 nziR 

U 1 1 w H D 


004037 


01 2224 






USR 


RO,@^DO.CMD 


;G0 START A "READ" 


2594 




0001 05 








XREADtXNT.ENlGO 




2595 


ni 1 


005037 


1 77776 




3$: 


CLR 




; ALLOW INTERRUPTS 




Oil OoO 










CLRB 


(R1 ) 


ISET TERMINATOR IF LAST BYTE 


2597 




004037 


011716 






dSR 




:WAIT FOR A FLAG 


2598 


Oil 066 


1 04003 








ERROR 


3 


;NONE OCCURRED 


2599 


Oil 070 


1 04004 








ERROR 




;N0 INTERRUPT 


2600 


01 1072 


005037 


001 254 






CLR 




; CLEAR THE WAIT ON INTERRUPT KEY 








000340 


1 77776 




MOV 




;LOCK OUT ALL INTERRUPTS 




ni 1 ?n4 




012014 






USR 


RO t^^* FLAGS 


;WHAT F^LAG OCCURRED 


2603 


ni 1 1 1 n 


1 04002 








ERROR 




;?UNKNOWN FLAG 


2604 


011112 


000402 








BR 


4$ 


; »XFER REQ" 




011114 


1 04005 








ERROR 


5 


; "READY" 


2606 


011116 


00041 3 








BR 


8$ 


S'^RgADY" WITH "ERROR" 


2607 


01 1 1 20 


005302 






4$: 


DEC 


R2 


; READ A BYTE? 




011122 


002431 








BLT 


5$ 


; BR IF NO 


2609 


01 1 1 24 


005000 








CLR 


RO 




261 


0111 26 


1 51 500 








BISB 


@TADB,RO 


JREAD ONE BYTE 


261 1 


0111 30 


1 1 002 1 








MOVB 


RO, (R1 ) + 


;AND PUT IT IN. THE BUFFER 








0121 02 






JSR 


PC,@#DO.CRC 


; CALCULATE CftC FOR THIS BYTE 


261 3 


0111 36 


01 2777 


012340 


1 70064 




MOV 


iSfSERV,@TAVEC 


; SETUP TO SERVICE THE INTERRUPT 


251 4 




000743 








BR 


3S 


; LOOP 




01 1 1 46 


1 0237 


001 1 66 




3$: 


MOV 


R2,@#$TMP0 


;GET NUMBER OF BYTES NOT READ 


2616 


01 1 1 52 


00 1414 








BEO 


9$ 


JSKIP OUT IF 


261 7 


01 1 1 54 


01 3746 


001 1 72 






MOV 


®#SESCAPE.-CSP) 


;SAVE THE ESCAPE ADDRESS 




01 1 1 60 


005037 


001 1 72 






CLR 


i>#$E§CAPE 


;N0 ESCAPE DESIRED 


261 9 


01 1 1 64 


1 6646 


000004 






MOV 


4{SP),-(SP} 


; COPY THE STACK 


2620 


011170 


1 6646 


000004 






MOV 


4(SP),-CSP) 






01 1 1 74 










ERROR 


13 


{BLOCK READ SHORT 


2622 


0111 76 


01 2637 


001 1 72 






MOV 


(SP)-l-,@#$ESCAPE 


; RESTORE ESCAPE ADDRESS 






000002 








RTI 




; LEAVE 


2624 


011 204 


1 04002 






9$: 


ERROR 


2 


; ERROR OCCURRED DURING READ 


2625 


01 1206 


01 3737 


012222 


00iai2 


5$: 


MOV 


@#CHC.WD.##RCRei 


;SAVE THE CALCULATED CRC 


2626 


011214 


004037 


012224 






JSR 


RO.@^DO.CMD 


;D0 AN I LBS 


2627 


01 1220 


000124 








XREADIINT.EN! UBS 




2628 


01 1222 


1 1 1537 


001214 






MOVB 


@TADB,l»iifRCRC2 


;SAVE 1ST BYTE OF CRC FRO^ TAtI 


2629 


01 1226 


005037 


177776 






CLR 


@i!^PS 


; ALLOW INTERRUPTS 


2630 


01 1232 


004037 


011716 






USR 


RO,C>A^WAITFLAG 


•.WAIT ON FLAG 


2631 


01 1236 


104003 








ERROR 


3 


;NONE OCCURRED 


2632 


011240 


104004 








ERROR 


4 


{INTERRUPT FAILED 


2633 


01 1242 


1 1 1537 


001215 






MOVB 


@TADB,RCRCa-5-1 


jSAVE 2ND BYTE OF CRC FROM TA11 


2634 


011246 


004037 


012014 






JSR 


RO.Mf LAGS 


J CHECK FLAGS 
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SSQ 005@ 



SEQ 0059 



2635 


011 252 


104002 






ERROR 


2636 


01 1254 


104002 






ERROR 


2637 


01 1256 


000002 






RTI 


2638 


01 1260 


032714 


037000 




BIT 


2639 


01 1264 


001401 






BEQ 


2640 


01 1266 


104002 






ERROR 


2641 


01 1270 


032777 


000020 


1S7642 6S: 


BIT 


2642 


01 1276 


001001 






BNE 


2643 


01 1300 


104012 






ERROR 


2644 


01 1302 


000002 




7$: 


RTI 


2645 













2 {UNKNOWN FLAG 

2 ; "XFER REQ" 

; "READY" 

# LEADER 1 WRT LOCK I FGAP JTIMERR ! OF F L I NE ,®TACS 

6$ :BR IF CRC ERROR 

2 {ERROR OCCURRED 

#SW04,»SWR { IGNORE CRC ERRORS? 

7$ {BR IF YES 

12 {"READY" AND «CRC ERROR 

I IT WAS A CRC ERROR AND WE ARE IGNORING THEM 

{ SO RETURN TO CALLER 
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2646 














****** 




****** 


********************4ll«l*,$!^* 


2647 










;THIS 


ROUTINE 


WILL BACK SPACE ONE 


FILE 


GAP 


2648 


01 1304 


01 1637 


001204 




T.BSFG: 


MOV 


(SP) ,@/ySAVPC 




;SAVE PC OF CALL 


2649 


01 1310 


01 2737 


015433 


007304 






MOV 


j^MXBSFG,@^MFUNC 




;SAVE POINTER OF .ASCI2 NAME 


2650 


011316 


004037 


012224 




is: 




JSR 


R0,@j^DO.CMO 




; START A "BSFG* 


2651 


01 1322 


000107 










XBSFG1INT.EN!G0 






2652 


01 1324 


005037 


177776 








CLR 


@#PS 




;ALLOW INTERRUPTS 


2653 


01 1330 


004037 


011716 








USR 


RO,@#WAITFLAG 




JWAIT ON FLAG 


2654 


01 1334 


104003 










ERROR 


3 




;N0 FLAG 


2655 


01 1336 


104004 










ERROR 


4 




; FLAG DIDN'T INTERRUPT 


2656 


01 1340 


004037 


012014 








JSR 


RO.W FLAGS 




; FIND OUT WHAT FLAG OCCURRED 


2657 


01 1344 


104002 










ERROR 


2 




; UNKNOWN 


2658 


01 1346 


104002 










ERROR 


2 




; "XFER REO" 


2659 


01 1350 


000401 










BR 


2$ 




; "READY" 


2660 


011352 


104002 










ERROR 


2 




; "READY" & "ERROR" 


2661 


01 1354 


032714 


004000 




2$: 




BIT 


#FGAP,®TACS 




;IN A FILE GAP? 


2662 


011360 


001401 










BEQ 


3$ 




;BR IN NO 


2663 


011362 


000002 










RTI 






;G0 BACK 


2664 


011354 


1040CS 






3$: 




ERROR 


6 




; "BSFG" DIDN'T STOP IN A FILE 


2665 






















2666 






















2667 
















»s$l)i!***i»****«**i^i|E;t<«4<!tt^i»iic:»««)«::«:***s«i**i;i:4!!i(^««*«$]$ii4r!$c:^i«ii$$!^lt( 


2668 










JTHIS 


ROUTINE 


WILL BACK SPACE ONE 


BLOCK 


GAP 


2669 


011366 


01 1637 


001204 




T.BSBG: 


MOV 


(SP) ,®>#SAVPC 




;SAVE THE PC OF THE CALL 


2670 


01 1372 


012737 


015457 


007304 






MOV 


)i'MXBSBG.@#MFUNC 




; MESSAGE POINTER 


2671 


01 1400 


004037 


012224 




1$: 




USR 


RO.WDO.CMD 




: START A "BSBG- 


2672 


01 1404 


0001 1 1 










XBSBGIINT.ENIGO 






2673 


01 1406 


005037 


177776 








CLR 


@#PS 




; ALLOW INTERRUPTS 


2674 


011412 


004037 


01 1716 








JSR 


RO,©#WAITFLAG 




;WAIT FOR A FLAG 


2675 


011416 


104003 










ERROR 


3 




;N0 FLAG OCCURRED 


2676 


01 1420 


104004 










ERROR 


4 




; FLAG DIDN'T INTERRUPT 


2677 


01 1422 


004037 


012014 








JSR 


R0,## FLAGS 




;WHAT FLAG OCCUi'.RED 


2678 


01 1426 


104002 










ERROR 


2 




; UNKNOWN 


2679 


011430 


104002 










ERROR 


2 




; "XFER REO" 


2680 


011432 


000002 










RTI 






; "READY"— GO BACK TO USER 


2681 


011434 


104002 










ERROR 


2 




; "READY" a- ERROR" 
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2682 










• •**************«*********«****************************«**#*«*«** 


2683 










;THIS ROUTINE 


WILL SPACE FORWARD 


FOR 


ONE FILE GAP 


2684 


01 1436 


01 1637 


001204 




T.SFFG: MOV 


(SP) ,@#SAVPC 




;SAVE PC OF CALL 


2685 


01 1442 


012737 


015366 


007304 


MOV 


#MXSFFG,@#MFUNC 




•.POINTER TO .ASCIZ MESSAGE 


2686 


01 1450 


004037 


012224 




1$: JSR 


R0,@#DO.CMD 




; START A "SFFG" 


2687 


01 1454 


0001 13 






XSFFGI INT.ENIGO 






2688 


01 1456 


005037 


177776 




CLR 


P#PS 




; ALLOW INTERRUPTS 


2689 


01 1462 


004037 


01 1716 




JSR 


RO.MWAITFLAQ 




;WAIT FOR A FLAG 


2690 


01 1466 


104003 






ERROR 


3 




; FLAG FAILED TO OCCUR 


2691 


01 1470 


104004 






ERROR 


4 




; FLAG DIDN'T INTERRUPT 


2692 


01 1472 


004037 


012014 




JSR 


R0,9#FLAGS 




;WHAT FLAG OCCURRED 


2693 


01 1476 


104002 






ERROR 


2 




; UNKNOWN 


2694 


01 1500 


104002 






ERROR 


2 




; "XFER REO" 


2695 


01 1502 


000401 






BR 


2$ 




; "READY" 


2696 


01 1504 


104002 






ERROR 


2 




; "READY" AND "ERROR" 


2697 


01 1506 


032714 


004000 




2$: BIT 


#FGAP,»TACS 




;DID "SFFG" STOP IN A "FILE GAP"? 


2698 


011512 


001401 






BEQ 


3$ 




;BR IF NO 


2699 


011514 


000002 






RTI 






; RETURN TO CALLER 


2700 
2701 


01 1516 


104006 






3$: ERROR 


6 




:"SFFG" DIDN'T STOP IN A FILE GAP 


2702 


















2703 












2704 










JTHIS ROUT INE 


WILL SPACE FORWARD 


ONE 


BLOCK GAP 


2705 


01 1520 


01 1637 


001204 




T.SFBG: MOV 


(SP),®#SAVPC 




;SAVE PC OF CALL 


2706 


01 1524 


012737 


015411 


007304 


MOV 


#MXSFBG,8>#MFUNC 




; POINTER TO .ASCIZ i^ESSAGE 


2707 


01 1532 


004037 


012224 




1$: JSR 


R0,@#DO.CMD 




; START A "SFBG" 


2708 


01 1536 


0001 15 






XSFBGIINT.ENIGO 






2709 


01 1540 


005037 


177776 




CLR 






; ALLOW INTERRUPTS 


2710 


01 1544 


004037 


011716 




JSR 


R0,##WAITFLAG 




JWAIT FOR A FLAG 


271 1 


01 1550 


104003 






ERROR 


3 




;N0 FLAG 


2712 


01 1552 


104004 






ERROR 


4 




:N0 INTERRUPT 


2713 


01 1554 


004037 


012014 




JSR 


■ R0,®# FLAGS 




;FIND OUT WHAT FLAG 


2714 


01 1560 


104002 






ERROR 


2 




; UNKNOWN 


2715 


01 1562 


104002 






ERROR 


2 




; "XFER REO" 


2716 


01 1564 


000002 






RTI 






; "READY" 


2717 


01 1566 


005737 


001246 




TST 


©#ASKKEY 




; RUNNING UNDER MANUAL LOOPING? 


2718 


01 1572 


002001 






BGE 


2$ 




;BR IF NO 


2719 


01 1574 


000002 






RTI 






; RETURN 


2720 


01 1576 


104002 






2$: ERROR 


2 




; "READY" AND "ERROR" 
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2721 










********************************************************** 


2722 








;THIS ROUTINE 


WILL REWIND THE TAPE 




2723 


01 1 600 


01 1 637 


001204 


T.RWND: 


MOV 


(SP),f>#SAVPC 


SAVE PC OF CALL 


2724 


01 1 604 


012737 


015344 


007304 


MOV 


#MXRWND.@#MFUNC 


POINTER TO .ASCIZ iWESSAGE 


2725 


01 1612 


004037 


01 2014 




JSR 


R0,®# FLAGS 


CHECK THE FLAGS 


2726 


011616 


1 04001 






ERROR 


1 


NO FLAGS 


2727 


01 1 620 


1 04001 






ERROR 


1 


►"XFER REQ" 


2728 


01 1 622 


00041 1 






BR 


1$ 


NORMAL RETURN 


2729 


Oil 624 


005777 


167426 




TST 


@RWDFLG 


WAS LAST FUNCTION A REWIND? 


2730 


Oil 630 


001406 






BEQ 


1$ 


BR IF YES 


2731 


01 1632 


03271 4 


020000 




BIT 


LEADER, @TACS 


ON CLEAR LEADER? 


2732 


01 1 636 


001403 






BEQ 


1$ 


BR IF NO 


2733 


01 1640 


005077 


167412 




CLR 


PRWDFLG 


ALLOW THIS ERROR ONLY ONE TIME 


2734 


01 1644 


104001 






ERROR 


1 


ON CLEAR LEA0ER BUt SHOULDN'T BE 


2735 


01 1646 


004037 


012224 


t$: 


USR 


RO,f#DO.CMD 


GO START A "jftWIND" 


2736 


01 1 652 


0001 1 7 






XRWND!1NT.EN!G0 




2737 


01 1654 


005037 


177776 




CLR 


l>#PS 


ALLOW INTERRUPTS 


2738 


01 1 660 


004037 


011716 




JSR 


f?0,f#WAITFL&6 


WAIT ON FLAG 


2739 


01 1664 


104003 






ERROR 


3 


NO FLAG OCCURRED 


2740 


01 1666 


104004 






ERROR 




NO INTERRUPT 


2741 


01 1670 


004037 


012014 




JSR 


RO.WFLAQS 


WHAT FLAG OCCURRED 


2742 


01 1674 


104002 






ERROe 


2 


UNKNOWN 


2743 


011676 


104002 






ERROFi 


2 


"XFER REQ« 


2744 


01 1700 


000401 






BR 


2$ 


"READY" 


2745 


01 1702 


104002 






ERROR 


2 


"READY" & "ERROR" 


2746 


011704 


032714 


020000 


2S: 


BIT 


# LEADER, ©TACS 


ON "CLEAR LEADER"? 


2747 


01 1710 


001401 




BEQ 


3$ 


BR IF NO 


2748 


011712 


000002 






RTI 




YES RETURN 


2749 


01 1714 


104007 




3$: 


ERROR 


7 


"REWIND" FAILED TO GO TO "CLEAR LEADER'' 
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SEQ 0063 



SEO 00S3 



2750 

2751 
2752 
2753 



THIS ROUTINE IS USED TO WAIT ON A FLAG 



2754 












USR 


RO.WWAITFLAG 




2755 












RETURN 


FOR NO FLAGS 




2756 












RETURN 


FOR NO INTEftiaiPT 




2757 












NORMAL 


RETURN 




2758 


















2759 


01 1716 








WAITFLAG: 






2760 


011716 


005037 


012006 






CLR 


LOCNT 


{ZERO THE LOW COUNTER 


2761 


01 1722 


01 3737 


012012 


012010 




MOV 


MAXCNT, HICNT 


;SET THE HIGH COUNTER TO MAX. COUNT 


2762 


01 1730 


032777 


000040 


167202 




BIT 


ifSWOS.^SWR 


J RUNNING WITH INTERRUPTS? 


2763 


01 1736 


001403 








BEQ 


1$ 


;BR IF YES 


2764 


01 1740 


01 2737 


177777 


001254 




MOV 


#-1 .WAITKEY 


;SET THE INTERRUPT OCCURRED FLAG 


2765 


01 1746 


032714 


000240 




1$: 


BIT 


IVTR.REQI READY, 9TACS 


•TEST FOR FLAGS 


2766 


01 1752 


001007 








BNE 


2$ 


;BR IF A FLAG IS UP 


2767 


01 1754 


005237 


012006 






INC 


LOCNT 


; COUNT THE LOW COUNTER 


2768 


01 1760 


001372 








BNE 


IS 


JLOOP IF NOT ZERO 


2769 


01 1762 


005337 


012010 






DEC 


HICNT 


SCOUT THE HIGH COUNTER 


2770 


01 1766 


100367 








BPL 


1$ 


J LOOP IF NOT NEG. 


2771 


01 1770 


000405 








BR 


3$ 


; LEAVE 


2772 


011772 


005720 






2$: 


TST 


(R0)4- 


•.INCREMENT THE RETURN ADDRESS 


2773 


01 1774 


005737 


001254 






TST 


WAITKEY 


JLOOK AT THE WAIT ON INT. KEY 


2774 


012000 


001401 








BEQ 


3$ 


;BR IF NOT SEf 


2775 


012002 


005720 








TST 


(R0)> 


; INCREMENT THE RETURN ADDRESS 


2776 


012004 


000200 






3$: 


RTS 


RO 


•.RETURN TO USER 


2777 


012006 


000000 






LOCNT : 







2778 


012010 


000000 






HICNT: 









2779 


012012 


000000 






MAXCNT: 
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SEQ 0084 

SEO 93S4 



2780 


















2781 












2782 


















2783 










THIS ROUTINE 


IS USED TO DETERMINE WHAT FLAG IS SET 




















2785 










call: 








2786 












JSR 


RO.tAfFLAGS 




2787 












RETURN 


FOR UNKNOWN FLAG 


2788 












RETURN 


FOR "TRANSFER 


REQUEST" 


2789 












RETURN 


FOR "READY" 




2790 












RETURN 


FOR "READY* & 


"ERROR" 


2791 
2792 


012014 


032714 


000240 


i 


■LAGS! 


BIT 


#TR.REOtREADY 


ffTACS ; CHECK FOR "XFER REO" OR "READY" 


2793 


012020 


001427 








BEQ 


LVFLAG 


;BR IF NO FLAGS 


2794 


012022 


005720 








TST 


(RO)-!- 


; INCREMENT RETURN ADDRESS 


2795 


012024 


105714 








TSTB 


@TACS 


;CHECK FOR "XFER REQ" 


2796 


012026 


100424 








BMI 


LVFLAG 


;BR IF SET 


2797 


012030 


005720 








TST 


(R0) + 


; INCREMENT RETURN ADDRESS 


2798 


012032 


032777 


000100 


167100 




BIT 


^SW06,@SWR 


:STALL? 


2799 


012040 


001414 








BEQ 


3$ 


; BR IF NO 


2800 


012042 


010046 








MOV 


RO,-(SP) 


; JPUSH RO ON STACK 


2801 


012044 


01 0146 








MOV 


R1 ,-(SP) 


; ; PUSH R1 ON STACK 


2802 


012046 


013700 


001264 






MOV 


©ifSTALLtRO 


;GET STALL TIME 


2803 


012052 


013701 


001266 






MOV 


@#STALL-S-2,R1 




2804 


012056 


062700 


000001 


is: 


ADD 


jj'l ,R0 


; STALL 


2805 


012062 


005501 








ADC 


R1 




2806 


012064 


001374 








BNE 


1$ 


{LOOP 


2807 


012066 


012601 








MOV 


{SP)+,R1 


; ;POP STACK INTO R1 


2808 


012070 


012600 








MOV 


(SP)+,RO 


nPOP STACK INTO RO 


2809 


012072 


005714 




3$: 


TST 


@TACS 


;IS "ERROR" SET 


2810 


012074 


100001 








BPL 


LVFLAG 


;BR IN NO "ERROR" 


2811 


012076 


005720 








TST 


(R0)4. 


{INCREMENT RETURN ADDRESS 


2812 


012100 


000200 




LVFLA6! 


RTS 


RO 
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CZTADD.P11 23-MAR-78 08:34 ROUTINE TO CALCULATE THE CRC SEQ 0065 



2813 












2814 








'.THIS ROUTINE 


WILL CALCULATE 


THE CRC 




2815 








;CALL: 








2816 








; USR 


PC,##DO.CRC 


;R0=1 BYTE OF DATA 


2817 
















2818 


012102 






DO. CRC: 








2819 


012102 


01 0046 




MOV 


RO,-{SP) 


J ; PUSH RO ON STACK 




2820 


012104 


01 0146 




MOV 


R1 ,-(SP) 


; ;PUSH R1 ON STACK 




2821 


012106 


010246 




MOV 


R2,-(SP) 


;;PUSH R2 ON STACK 




2822 


0121 10 


010346 




MOV 


R3,-(SP) 


;;PUSH R3 ON STACK 




2823 


0121 12 


01 0446 




MOV 


R4,-CSP) 


; ; PUSH R4 ON STACK 




2824 


0121 14 


012737 


000010 


012176 MOV 


#8. .3$ 


{MAKE EIGHT 


ITERATIONS 


2825 


012122 


013703 


012222 


MOV 


CRC.WD,R3 


{PICKUP THE 


CRC WORD 


2826 


012126 


005001 




1$: clr 


R1 






2827 


012130 


010302 




MOV 


R3.R2 


{GET THE PARTIAL CRC WORD 


2828 


012132 


042702 


177776 


BIC 


#*CBIT00,R2 


{STRIP AWAY 


EVERYTHING BUT BITOO 


2829 


012136 


006000 




ROR 


RO 


{PULL OFF THIS BIT 


2830 


012140 


006101 




ROL 


R1 


{AND SETUP TO XOR IT 


2831 


012142 


01 0104 




MOV 


R1 ,R4 


{FORM THE XOR OF "R1" AND "R2« 


2832 


012144 


040204 






R2,R4 






2833 


012146 


040102 




BIC 


R1 ,R2 






2834 


012150 


050402 




BIS 


R4,R2 


{RESULTS TO 


"R2" 


2835 


012152 


006002 




ROR 


R2 






2836 


012154 


105006 




BCC 


2$ 






2837 


012156 


012701 


040002 


MOV 


lS'BIT14IBIT01 


R1 




2838 


012162 


01 0104 




MOV 


R1 ,R4 


{ FORM THE XOR OF "Rl" AND "R3" 


2839 


012164 


040304 




BIC 


R3,R4 






2840 


012166 


040103 




BIC 


R1 ,R3 






2841 


012170 


050403 




BIS 


R4,R3 


{RESULTS TO 


"RS" 


2842 


012172 


006003 




2$: ROR 


R3 






2843 


012174 


005327 




DEC 


(PC) + 






2844 


012176 


000000 




3$: 






2845 


012200 


003352 




BGT 


1$ 


{BR IF MORE 


BITS TO DO 


2846 


012202 


010337 


012222 


MOV 


R3,CRC.WD 






2847 


012206 


012604 




MOV 


(SP)-|.,R4 


{ {POP STACK INTO R4 




2848 


012210 


012603 




MOV 


(SP)+,R3 


{ {POP STACK INTO R3 




2849 


012212 


01 2602 




MOV 


(SP)+,R2 


{ { POP STACK INTO R2 




2850 


012214 


012601 




MOV 


(SP)+,R1 


{ {POP STACK INTO Rl 




2851 


012216 


012600 




MOV 


{SP)+,RO 


{ {POP STACK INTO RO 




2852 


012220 


000207 




RTS 


PC 






2853 


012222 


000000 




CRC. WD : 




{CRC WORD 





TA11 MOTION TEST 



CZTADD 


P1 1 


23-MAR-78 08:34 


2854 








2855 








2856 








2857 








2858 








2859 








2860 








2861 








2862 


012224 


01 01 46 




2863 


012226 


01 2737 


000340 


2864 


012234 


01 2001 




2865 


012236 


042701 


177640 


2866 


012242 


032777 


000040 


2867 


012250 


001405 




2868 


012252 


042701 


0001 00 


2869 


012256 


01 2777 


012356 


2870 


012264 


005037 


001254 


2871 


012270 


032701 


000100 


2R72 


012274 


001403 




2873 


012276 


01 2777 


012340 


2874 


012304 


110114 




2875 


012306 


032701 


ooooot 


2876 


012312 


001403 




2877 


012314 


032714 


000040 


2878 


012320 


001375 




2879 


012322 


005101 




2880 


012324 


042701 


177761 


2881 


012330 


. 01 0177 


166722 


2882 


012334 


01 2601 




2883 


012336 


000200 




2884 








2885 








2886 








2887 








2888 


012340 


01 2737 


177777 


2889 


012346 


01 2777 


012356 


2890 


012354 


000002 




2891 








2892 








2893 








2894 








2895 


012356 


01 1637 


001204 


2896 


012362 


104014 




2897 
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ROUTINE TO PERFORM TH€ REQUESTED FUNCTION 

THIS ROUTINE WILL LOAD THE LOW BYTE OF TAGS WITH THE DESIRED FUNCTION 



;SAVE R1 

: LOCK OUT ALL JNERRUPTS 
;GET THE COMMAND 
TI0N!G0>,R1 : STRIP AWAY JUNK 

.•WITH OR Without interrupts 

;BR IF WITH 

{CLEAR INTERRUPT ENABLE IF SET 
.•SETUP TO CATCH BAD INTERRUPT 
;ZERO THE WAIT ON INTERRUPT KEY 
{RUNNING WITH INTERRUPTS? 
:BR IF HO 

{SETUP TO SERVICE TH§ INTERRUPT 

{LOAD THE Cfl»ND 
{1$ GO giT m k "I"? 
{BR IF GO *0 

{WAIT FOR "READY" TO CLEAR 

{SET OR CLEAR REWIND FLAG 
{EXTRACT FUNCTION BITS 
{AN© SAVE AS THE R£WIN0 FLAG 
{GET R1 BACK 
{RETURN to USER 

{THIS ROUTINE WILL SERVICE ALL LEGAL INTERRUPTS 



SEO 0066 



SEO 0066 





dSR 


R0,@#D0,CMD 


• 


DESIRED 


FUNCTIN 




RETURN 




DO.CMD: 


MOV 


R1 ,-(.SP) 




MOV 


*340,P*PS 




MOV 


(R0)+,R1 




BIC 


#''C<INT.EN! ILBSl 




BIT 


#&W05,@SWR 




BEQ 


4$ 




BIC 


#INT.EN,R1 




MOV 


#BApJNT.»TAVEC 


4$: 


CLR 


WAITKEY 




BIT 


#INT.EN,R1 




BEO 


3$ 




SlOV 


*SERV,»TAVEC 


3S: 


MOVB 


R1 .@TACS 




BIT 


#G0,R1 




BEO 


2$ 


1$'. 


BIT 


# READY, ©T ACS 




BNE 


1$ 


2$: 


COM 


R1 




BIC 


**C<FUNCTI0N>,R1 




MOV 


R1 ,9BW0FLG 




MOV 


(SP)+,R1 




RTS 


RO 



SERV: 



MOV 
MOV 
RTI 



#-1 ,C>#WAITKEY 
*BADINT,9TAVEC 



{SET THE WAIT KEY 

{SET TO CATCH ILLEGAL INTERRUPTS 



{THIS ROUTINE WILL CATCH ILLEGAL INTERRUPTS FROM THE TA11 

BADINT: MOV (SP),*#SAVPC {SAVE WHERE WE WERE AT 

ERROR 14 {ILLEGAL INTERRUPT OCCURRED 
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CZTADD. P1 1 23-MAR-7B 08:34 ********** MANUAL ADJUSTMENT ROUTINES ********** 



SEQ 0067 



SEO 0067 



2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 



2932 

2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 



:»*«!»*4i4<4i>|i**4t4i4i*«i»titt>(><«i******«******************** 

FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 
E: BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 ### 

** note: IF USING SOFTWARE SWITCH REGISTER THE 
PROGRAM MUST HAVE BEEN STARTED AT A 
NORMAL STARTING ADDRESS FIRST SO THAT 
THE AUTO-SIZING ROUTINE CAN SET UP ADDRESS 
176 AS THE SOFTWARE SWITCH REGISTER 
PLACE VALUE INTO 176 
a******************************************** **************** 



J i¥*»sfi®i******i8i*«*«***«*«*****«*********«****«i**** ************** 

WRITE FILE GAPS FROM "BOT" TO "EOT" 
{START AT 220 

{THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND 
{THE "WRITE DELAY MONO" . 

• )»4>««I4>4>4l«*«*>l<4>**l|l*4<4r*l*«I|I4I«****1^******>(^***>«^:4>4>*****4I*****«******** 



2918 


012364 


012706 


001 100 


WFGSUB: 


MOV 


#STACK.SP 


{KEEP THE STACK OUT OF THE WAY 


2919 


012370 


01 3704 


001220 




MOV 


»*TACSL,TACS 


{SETUP THE TA11 STATUS AND 


2920 


012374 


01 3705 


001224 




MOV 


e#TADBL,TADB 


{DATA BUFFER REGISTERS 


2921 


01 2400 


000005 






RESET 




{RESET THE WORLD 


2922 


012402 


01 2737 


012364 001 110 




MOV 


#WFGSUB,9#$LPERR 


{SETUP THE lCJOP ON ERROR ADDRESS 


2923 


012410 


104422 






SELDRV 




{SELECT THE DRIVE 


2924 


012412 


1 1.2714 


000017 




MOVB 


#XRWND1G0.9TACS 


{SEND TAPE TO "BOT" 


2925 


012416 


032714 


000040 


100$: 


BIT 


#READY,»TACS 


{WAIT ON READY 


2926 


012422 


001775 






BEQ 


100$ 




2927 


012424 


104412 




1$: 


WFG 




{WRITE A FILE GAP 


2928 


012426 


032714 


020000 




BIT 


# LEADER, 9T ACS 


;AT "CLEAR LEASER"? 


2929 


012432 


001774 






BEQ 


1$ 


{BR IF NO 


2930 


012434 


000000 






HALT 




{STOP IF YES 


2931 


012436 


000752 






BR 


WFGSUB 


{LOOP ON CONT. 



012440 


004737 


013106 


WRTSUB: 


JSR 


PC,»#SETBUF 


012444 


01 2706 


001 100 


WLOOP: 


MOV 


#STACK,SP 


012450 


01 3704 


001220 




MOV 


@#TACSL,TACS 


012454 


01 3705 


001224 




MOV 


WTADBL.TAaB 


012460 


000005 






RESET 




012462 


012737 


012444 


001 110 


MOV 


#WLaOP.9#SLPERR 


012470 


104422 






SELDRV 




012472 


112714 


000017 




MOVB 


#XR1|{NDIG0.9TACS 


012476 


032714 


000040 


100$: 


BIT 


#RiA6V,@TACS 



**************** 

WRITE CONTINUOUS BLOCKS OF DATA 
{START AT 224 

{THE PROGRAM WILL HALT THREE(3) TIMES 

{AFTER EACH HALT SET THE 6WR AND PRESS CONTINUE 

{HALT 1 SWa<7:0> « NUMBER OF BYTES PMM BLOCK 

{HALT 2 — r- SWR<7:0> n PATTERN DESIRED 
{HALT 3 — - SWR<15:0> « OPERATIONAL SWITCH SETTINGS 
{THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 
{THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

{GET BLOCK SIZE AND PATTERN 
{KEEP THE STACK OUT OF THE WAY 
{SETUP THE TA11 STATUS AND 
{ DATA BUFFER REGISTERS 
{RESET THE WORLD 
SETUP THE LOOP ON ERROR ADDRESS 
{SELECT THE DRIVE 
{SEND TAPE TO "QOT» 
{WAIT ON REA5y 



TA1 1 MOTION TEST 



CZTADD 


P11 23-MAR-78 


08:34 


2954 


012502 


001775 




2955 


012504 


104413 


017042 


2956 


012510 


032714 


020000 


2957 


012514 


001773 




2958 


012516 


000000 




2959 


012520 


000751 




2960 








2961 








2962 
















9Qfi4 








2965 








2966 
















2968 


012522 


012706 


001 too 


2969 


012526 


013704 


001220 


2970 


012532 


013705 


001 224 


2971 


012536 


000005 




2972 


012540 


012737 


012522 001110 


2973 


012546 


104422 




2974 


012550 


1 1 2714 


000017 


2975 


012554 


032714 


000040 


2976 


012560 


001775 




2977 


012562 


104414 


017006 


2978 


012566 


012706 


0011 00 


2979 


012572 


032714 


020000 


2980 


012576 


001351 




2981 


012600 


104423 




2982 


012602 


017006 




2983 


012604 


01 7042 




2984 


012606 


000765 




2985 








2986 








2987 








2988 








2989 








2990 








2991 








2992 








2993 








2994 








2995 








2996 
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WRITE CONTINUOUS BLOCKS OF DATA 



BEQ 

WRITE 

BIT 

BEQ 

HALT 

BR 



100S 
.WLNKX 

PLEADER, @T ACS 

IS 

WLOOP 



SWRITE A BLOCK 
;AT "CLEAR LEADER" 
;BR IF NO 
;STOP IF "EOT" 
;LOOP IF CONT. 



ROSUB: 



100$: 

1$: 



I******************************************** 
READ AND COMPARE CONTINUOUS BLOCKS OF DATA 
; START AT 230 

5 THIS ROUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO" 
;AND THE "THRESHOLD POT". 



MOV 


fSTACK.SP 


•.KEEP THE STACK OUT OF THE WAY 


MOV 


®#TACSL,TACS 


; SETUP THE TA11 STATUS AND 


MOV 


WTADBL.TADB 


JDATA BUFFER REGISTERS 


RESET 




; RESET THE WORLD 


MOV 


iiiRDSUB,@ii^SLPERR 


1 SETUP THE LOOP ON ERROR ADDRESS 


SELDRV 


} SELECT THE DRIVE 


MOVB 


#XRWND!GO.@TACS 


;SEND TAPE TO "BOT" 


BIT 


#READY,@TACS 


JWAIT ON READY 


BEQ 


100$ 




READ 


.RLNKX 


:READ A BLOCK 


MOV 


#STACK,SP 


jINlt. IN CASE OF ERROR 


BIT 


# LEADER. ®T ACS 


;AT "CLEAR LEADER"? 


BNE 


RDSUB 


;BR IF YES LOOP 


BLKCMP 




; COMPARE THE READ AND WRITE BUFFERS 


RLNKX 




; LINK TO THE READ BUFFER 


WLNKX 




ILINK TO THE WRITE BUFFER 


BR 


1$ 





WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 
{START AT 234 

;THE PROGRAM WILL HALT THREEO) TIMES 

; AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

IHALT 1 SWR<7:0> » NUMBER OF BYTES PER BLOCK 

;HALT 2 SWR<7:0> = PATTERN DESIRED 

JHALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

;THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 
jAND THE "GAP TIME MONO". 
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CZTADD. P1 1 23-MAR-78 08:34 WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 



SEO 0069 



SEQ 00B9 



2997 








2998 








2999 


012610 


004737 


013106 


3000 


012614 


01 2706 


001 100 


3001 


012620 


013704 


001220 


3002 


012624 


013705 


001224 


3003 


012630 


000005 




3004 


012632 


012737 


012614 


3005 


012640 


104422 




3006 


012642 


112714 


000017 


3007 


012646 


032714 


000040 


3008 


012652 


001775 




3009 


012654 


104412 




3010 


012656 


032714 


020000 


3011 


012662 


001005 




3012 


012664 


104413 


017042 


3013 


012670 


032714 


020000 


3014 


012674 


001767 




3015 


012676 


000000 




3016 


012700 


000745 




3017 








3018 








3019 








3020 








3021 








3022 








3023 








3024 








3025 








3026 


012702 


01 2706 


001 100 


3027 


012706 


013704 


001220 


3028 


012712 


013705 


001224 


3029 


012716 


000005 




3030 


012720 


012737 


012702 


3031 


012726 


104422 




3032 


012730 


1 12714 


000017 


3033 


012734 


032714 


000040 


3034 


012740 


001775 




3035 


012742 


104414 


017006 


3036 


012746 


012706 


001100 


3037 


012752 


032714 


020000 


3038 


012756 


001351 




3039 


012760 


104423 




3040 


012762 


01 7006 




3041 


012764 


01 7042 




3042 


012766 


104420 




3043 


012770 


032714 


020000 


3044 


012774 


001342 




3045 


012776 


000761 




3046 








3047 








3048 








3049 








3050 








3051 








3052 









;THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

t4************'¥**>**********t^** **************************** 



WGPBLK: 


JSR 


PC,@*SETBUF 


;GET BLOCK SIZE AND PATTERN 


WGBLOP: 


MOV 


*STACK,SP 


:KEEP THE STACK OUT OF THE WAY 




MOV 


^ffTACSL.TACS 


; SETUP THE TA1 1 STATUS AND 




MOV 


©(fTADBL.TADB 


;DATA BUFFER REGISTERS 




RESET 




; RESET THE WORLD 




MOV 


#WGBLOP.©#$LPERR 


; SETUP THE LOOP ON ERROR ADDRESS 




SELDRV 




; SELECT THE DRIVE 




MOVB 


#XRWND!GO.@TACS 


;SEND TAPE TO "BOT" 


100$: 


BIT 


)S'READY,®TACS 


{WAIT ON READY 




BEQ 


100$ 




1$: 


WFG 




•.WRITE A FILE GAP 




BIT 


# LEADER, PTACS 


|AT "CLEAR LEADER"? 




BNE 


2$ 


!BR IF YES 




WRITE 


, WLNKX 


; WRITE A BLOCK 




BIT 


# LEADER, ©TACS 


:AT "CLEAR LEADER"? 




BEQ 


1$ 


;BR IF NO 


2$: 


HALT 




jSTOP AT "EOT« 




BR 


WGBLOP 


{START OVER ON CONT. 



RGPBLK 



100$: 

1$: 



READ AND COMPARE A BLOCK OF DATA AND A FILE GAP 
{START AT 240 

{THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE 
{IT CAN BE USED TO ADJUST THE "SIGNAL MONO" , THE THRESHOLD POT" 
{AND THE "TAPE BLANK MONO" . 



MOV 
MOV 
MOV 

RESET - 

MOV 

SELDRV 

MOVB 

BIT 

BEQ 

READ 

MOV 

BIT 

BNE 

BLKCMP 

RLNKX 

WLNKX 

SFBG 

BIT 

BNE 

BR 



#STACK,SP 

WTACSL.TACS 
e/TTADBL.TADB 

#RGPBLK.@#$LPERR 

#XRWNDIGO.eTACS 
#READY,«>TACS 

100$ 

, RLNKX 

#STACK,SP 

# LEADER. @T ACS 

RGPBLK 



PLEADER, 0TACS 
RGPBLK 

1$ 



KEEP THE STACK OUT OF THE WAY 
SETUP THE TA11 STATUS AND 
DATA BUFFER REGISTERS 
RESET THE WORLD 

SETUP THE LOOP ON ERROR ADDRESS 
SELECT THE DRIVE 
SEND TAPE TO "BOT« 
WAIT ON READY 

READ A BLOCK OF DATA 
KEEP OUT OF THE WAY 
AT "CLEAR LEADER"? 

BR IF YES 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

GET INTO FILE GAP 

AT "CLEAR LEADER"? 

BR IF YES 

LOOP 



; SPACE FORWARD FILE GAP FROM "BOT" TO "EOT" 

{START AT 244 

{THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
{SPACE FOWARO (TAPE BLANK MONO CAN BE ADJUSTED) . OR AFTER READ OR 



SEQ 0070 

SEO 0076 



3053 








3054 








3055 








3056 


01 3000 


01 2706 


001 1 00 


3057 


01 3004 


01 3704 


001 220 


3058 


01 30 1 


01 3705 


001 224 


3059 


01 301 4 


000005 




3060 


1 301 6 


01 2737 


01 3000 


3061 


01 3024 


1 04422 




3062 


01 3026 


112714 


00001 7 


3063 


01 3032 


03271 4 


000040 


3064 


01 3036 


00 1 775 




3065 


01 3040 


1 0441 7 




3066 


013042 


032714 


020000 


3067 


01 3046 


001774 




3068 


013050 


000000 




3069 


01 3052 


000752 




3070 








3071 








3072 








3073 








3074 








3075 








3076 








3077 


01 3054 


000005 




3078 


01 3056 


01 2737 


013054 


3079 


01 3064 


005037 


001 172 


3080 


013070 


104422 




3081 


01 3072 


104415 




3082 


01 3074 


032714 


020000 


3083 


013100 


001 774 




3084 


01 31 02 


000000 




3085 


013104 


000763 




3086 








3087 








3088 








3089 








3090 


01 31 06 


005000 




3091 


0131 10 


000000 




3092 


013112 


022737 


000176 


3093 


01 31 20 


00 1 001 




3094 


013122 


1 04405 




3095 


1 31 24 






3096 


01 31 24 


1 57700 


166010 


3097 


01 31 30 


001.006 




3098 


01 31 32 


1 05777 


166003 


3099 


01 31 36 


001402 




3100 


013140 


01 2700 


000376 


3101 


013144 


005200 




3102 


013146 


01 0037 


017010 


3103 


013152 


01 0037 


017044 


3104 


013156 


000000 




3105 


013160 


022737 


000176 


3106 


013166 


001001 




3107 


013170 


104405 




3108 


013172 







; WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
; (SIGNAL MONO CAN BE CHECKED) . 



MOV 


#STACK,SP 


;KEEP THE STACK OUT OF THE WAY 


MOV 


P#TACSL.TACS 


; SETUP THE TA11 STATUS AND 


MOV 


##TADBL,TADB 


;DATA BUFFER REGISTERS 


RESET 




; RESET THE U^RLO 


MOV 


#SFFGSB,@#$LPEHR 


.•SETUP THE LOOP ON ERROR ADDRESS 


SELDRV 




; SELECT THE DRIVE 


MOVB 


#XRWND!GO,@TACS 


;SEND TAPE TO "BOT" 


BIT 


(CREADY.PTACS 


-.WAIT ON READY 


BEO 


100$ 




SFFG 




: SPACE INTO A FILE GAP 


BIT 


(S* LEADER, @TACS 


;AT "CLEAR LEADER"? 


BEQ 


IS 


;BR IF NO 


HALT 




;STOP AT "EOT" 


BR 


SFFGSB 


; LOOP ON CONT. 



**** ****************************************************** 
BACK SPACE FILE GAP 
•.START AT 250 

VTHIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL I30N0" 



SETBUF: 



1$: 
2$: 



ais; 



RESET 




; RESET THE WOgLO 


MOV 


ilfBSFGSB.^^SLPERR 


;LOQP ON ERROR ADDRESS 


CLR 


SESCAPE 


; DON ' T ESCAPE ON ERROR 


SELDRV 




; SELECT THE DRIVE 


BSFG 




;BACK SPACE A FILE GAP 


BIT 


# LEADER, PTACS 


;AT "CLEAR LEADER"? 


BEQ 


1$ 


;BR IF NO 


HALT 




ISTOP AT BOT 


BR 


BSFGSB 


; START OVER ON CONT. 




SETUP 


READ AND WRITE LINKS FOR 


SUBROUTINES 


CLR 


RO 




HALT 




; OPERATOR PUTS BYTE COUNT IN 


CMP 


<i>SWREG,SWR 


; USING S/W SWITCH REG? 


BNE 


20$ 


;N0- GET OUT 


gtsWr 




;GET VALUE 






{CONTINUE 


BISB 


9SWR.ro ; PICKUP 


THE BYTE COUNT 


BNE 


2$ 


•.BR IF NON-ZERO 


TSTB 


@SWR4-1 


; CHECK IF GREATER THAN 377 


BEO 


1$ 


;BR IF NO 


MOV 


#376, RO 


;SET FOR MAX ALLOWED 


INC 


RO 


IMAKE IT 377 OR 1 


MOV 


R0,®#RLNKX+2 


; SETUP READ LINK 


MOV 


R0,9/yWLNKX-t>2 


•.SETUP WRITE LINK 


HALT 




;SET PATTERN INTO THE SWR 


CMP 


#SWREG,SWR 


; USING S/W SWITCH REG? 


BNE 


21$ 


;N0- GET out 


GTSWR 




;6ET VALUE 
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SEQ 0071 



SEO 0071 



3109 


013172 


01 7700 


165742 


31 10 


013176 


01 2701 


017112 


31 1 1 


013202 


1 1 0021 




3112 


013204 


1 1 0021 




3113 


013206 


1 1 0021 




3114 


013210 


1 1 0021 




3115 


013212 


000000 




3116 


013214 


022737 


000176 


31 17 


013222 


001001 




31 IB 


013224 


104405 




3119 


013226 






3120 


013226 


000207 





22$: 



MOV 


fiSWR.RO 


MOV 


#WBUFX,R1 


MOVB 


RO, (R1 


MOVB 


R0,(R1 )■«■ 


MOVB 


RO. (R1 )+ 


MOVB 


RO.tRI )+ 


HALT 




CMP 


#SWREG.SWR 


BNE 


22$ 


GTSWR 




RTS 


PC 



; PICKUP THE PATTERN 

; PICKUP FIRST ADDRESS OF BUFFER 
;FILL THE BUFFER 



•SET OPERATIONAL SWITCHES 

5 USING S/W SWITCH REG? 

;N0- GET OUT 

;GET VALUE 

•.CONTINUE 

; RETURN 
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SEO 0072 

SEQ 007S 



3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
'3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 



.SBTTL TYPE ROUTINE 

i-ROUTlNE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
>THE ROUTINE ^ILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
>N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

»N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

^N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



*CALL: 
♦1 ) USING A 



TRAP INSTRUCTION 









; * 


TYPE 


, MESADR 


; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 








; *0R 
• * 


TYPE 












; * 
; * 


MESADR 






013230 


105737 


001157 


STYPE: 


TSTB 


STPFLG 


; ; IS THERE A TERMINAL? 


013234 


100002 






BPL 


1$ 


; ; BR IF YES 


013236 


000000 






HALT 




; ;HALT HERE IF NO TERMINAL 


013240 


000407 






BR 


3$ 


; ; LEAVE 


013242 


01 0046 




1$: 


MOV 


R0,-(SP) 


; ;SAVE RO 


013244 


01 7600 


000002 




MOV 


@2(SP) ,R0 


;;GET ADDRESS OF ASCIZ STRING 


013250 


1 1 2046 




2$: 


MOVB 


(RO)+,-(SP) 


; ; PUSH CHARACTER TO BE TYPED ONTO STACK 


013252 


001 005 






BNE 


4$ 


; ;BR IF IT ISN'T THE TERMINATOR 


013254 


005726 






TST 


(SP) + 


; ; IF TERMINATOR POP IT OFF THE STACK 


013256 


01 2600 




60$: 


MOV 


(SP)+,RO 


RESTORE RO 


013260 


06271 6 


000002 


3$: 


ADD 


#2, (SP) 


; ; ADUUST RETURN PC 


013264 


000002 






RTI 




; ; RETURN 


013266 


122716 


00001 1 


4$: 


CMPB 


*HT, (SP) 


; ; BRANCH IF <HT> 


013272 


001430 






BEQ 


8$ 




013274 


122716 


000200 




CMPB 


#CRLF, (SP) 


; ; BRANCH IF NOT <CRLF> 


013300 


001006 






BNE 


5$ 




013302 


005726 






TST 


(SP) + 


; ;POP <CR><LF> EQUIV 


01 3304 


1 04401 






TYPE 




1 ;TYPE A CR AND LF 


01 3306 


001201 






$CRLF 






013310 


105037 


013444 




CLRB 


SCHARCNT 


CLEAR CHARACTER COUNT 


013314 


000755 






BR 


2$ 


; ;GET NEXT CHARACTER 






UIohUO 


5$: 


USR 


rL t 9 I T Pet. 


;;G0 TYPE THIS CHARACTER 


013322 


123726 


001156 


6$: 


CMPB 


SFILLC, (SP)+ 


; ; IS IT TIME FOR FILLER CHARS.? 


013326 


001350 






BNE 


2$ 


; ; IF NO GO GET NEXT CHAR. 


013330 


013746 


001154 




MOV 


SNULL, -(SP) 


; ;GET M OF FILLER CHARS. NEEDED 














; ;AND THE NULL CHAR. 


013334 


105366 


000001 


7S: 


DECS 


1(SP) 


; ; DOES A NULL NEED TO BE TYPED? 


013340 


002770 






BLT 


6$ 


; ;BR IF NO— GO POP THE NULL OFF OF STACK 


013342 


004737 


013400 




USR 


PCSTYPEC 


; ;G0 TYPE A NULL 


013346 


105337 


013444 




DECB 


SCHARCNT 


; ;D0 NOT COUNT AS A COUNT 


013352 


000770 






BR 


7$ 


5 5 LOOP 








; HORIZONTAL TAB 


PROCESSOR 




013354 


112716 


000040 


8$: 


MOVB 


.(SP) 


REPLACE TAB WITH SPACE 


013360 


004737 


013400 


9S: 


USR 


PC.STYPEC 


; J TYPE A SPACE 


013364 


132737 


000007 013444 




BITB 


#7, SCHARCNT 


; ; BRANCH IF NOT AT 


013372 


001372 






BNE 


9$ 


} ;TAB STOP 


013374 


005726 






TST 


(SP)* 


; ;POP SPACE OFF STACK 



'11 23-MAR-78 


08:34 




TYPE ROUTINE, 




013376 


000724 








BR 


2$ 


013400 


105777 


165544 




STYPEC: 


TSTB 


@$TPS 


013404 


100375 








BPL 


STYPEC 


013406 


1 16677 


000002 


165536 




MOVB 


2(SP) .®$TPB 


013414 


122766 


000015 


000002 




CMPB 


#CR,2(SP) 


013422 


001003 








BNE 


1$ 


013424 


105037 


013444 






CLRB 


SCHARCNT 


013430 


000406 








BR 


STYPEX 


013432 


122766 


000012 


000002 


1$: 


CMPB 


#LF,2(SP) 


013440 


001402 








BEQ ' 


STYPEX 


013442 


105227 








INC8 


(PC)* 


013444 


000000 






SCHARCNT: .WORD 





013446 


000207 






STYPEX: 


RTS 


PC 










.SBTTL 


TTY INPUT ROUTINE 



TA11 MOTION TEST 



3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
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SEQ 0073 



;GET NEXT CHARACTER 

;WAIT UNTIL PRINTER IS READY 

; LOAD CHAR TO BE TYPED INTO DATA REG. 
; IS CHARACTER A CARRIAGE RETURN? 
; BRANCH IF NO 

; YES— CLEAR CHARACTER COUNT 

{EXIT 

; IS CHARACTER A LINE FEED? 
; BRANCH IF YES 
; COUNT THE CHARACTER 
{CHARACTER COUNT STORAiE 



.ENABL LSB 

{♦SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

{♦ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

{♦SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
{♦WHEN OPERATING IN TTY FLAG MODE. 



013450 


022737 


000176 


001 140 


SCKSWR: 


CMP 


#SWREG,SWR 


{ : IS THE SOFT-SWR SELECTED? 


013456 


001074 








BNE 


15$ 


{ {BRANCH IF NO 


013460 


105777 


165460 






TSTB 


@$TKS 


{ {CHAR THERE? 


013464 


100071 








BPL 


15$ 


{ {IF NO. DON'T WAIT AROUND 


013466 


1 1 7746 


165454 






MOVB 


©$TKB,-(SP) 


{ {SAVE THE CHAR 


013472 


042716 


177600 






BIC 


. #'0177,(5?) 


{{STRIP-OFF THE ASCII 


013476 


022726 


000007 






CMP 


#7.(SP)+ 


{ { IS IT A CONTROL G? 


013502 


001062 








BNE 


15$ 


{ {NO. RETURN TO USER 


013504 


123727 


001 134 


000001 




CMPB 


$AUT0B,#1 


{ {ARE WE RUNNING IN AUTO-MODE? 


013512 


001456 








BEQ 


15$ 


{ {BRANCH IF YES 


013514 


104401 


014175 






TYPE 


,$CNTLG 


{ {ECHO THE CONTROL-G (*G) 


013520 


104401 


014202 




SGTSWR! 


TYPE 


, $MSWR 


{ {TYPE CURRENT CONTENTS 


013524 


01 3746 


000176 






MOV 


SWREG,-(SP) 


{ { SAVE SWREG FOR TYPEOUT 


013530 


104402 








TYPOC 




{{GO TYPE— OCTAL ASCIKALL DIGITS) 


013532 


104401 


014213 






TYPE 


,$MNEW 


{ ; PROMPT KOR NEW SWR 


013536 


005046 






19$: 


CLR 


-(SP) 


{ {CLEAR COUNTER 


013540 


005046 








CLR 


-(SP) 


{ {THE NEW SWR 


013542 


105777 


165376 




7$: 


TSTB 


@$TKS 


{ {CHAR THERE? 


013546 


100375 








BPL 


7S 


{ { IF NOT TRY AGAIN 


013550 


1 1 7746 


165372 






MOVB 


®$TKB,-(SP) 


{ {PICK UP CHAR 


013554 


042716 


177600 






BIC 


#*C177, (SP) 


5 {MAKE IT 7-BIT ASCII 


013560 


021627 


000025 




9$: 


CMP 


(SP),#25 


{ { IS IT A CONTROL-U? 


013564 


001005 








BNE 


10$ 


{ { BRANCH I F NOT 


013566 


104401 


014170 






TYPE 


,$CNTLU 


{ {YES. ECHO CONTROL-U {"U) 


013572 


062706 


000006 




20$: 


ADD 




{ { IGNORE PREVIOUS INPUT 


013576 


000757 








BR 


19$ 


{ {LET'S TRY IT AGAIN 
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SEQ 0074 

S£Q 0074 



3233 








3234 


013600 


021627 


000015 


3235 


013604 


001022 




3236 


013606 


005766 


000004 


3237 


013612 


001403 




3238 


013614 


01 6677 


000002 


3239 


013622 


062706 


000006 


3240 


013626 . 


104401 


001201 


3241 


013632 


123727 


00 11 35 


3242 


013640 


001003 




3243 


013642 


012777 


000100 


3244 


013650 


000002 




3245 


013652 


004737 


013400 


3246 


013656 


021627 


000060 


3247 


013662 


002420 




3248 


013664 


021627 


000067 


3249 


013670 


003015 




3250 


013672 


042726 


000060 


3251 


013676 


005766 


000002 


3252 


013702 


001403 




3253 


013704 


006316 




3254 


013706 


006316 




3255 


013710 


006316 




3256 


013712 


005266 


000002 


3257 


013716 


056616 


177776 


3258 


013722 


000707 


001200 


3259 


013724 


104401 


3260 


013730 


000720 




3261 








3262 








3263 








3264 








3265 








3266 








3267 








3268 








3269 








3270 








3271 








3272 


013732 


01 1646 




3273 


013734 


016666 


000004 


3274 


013742 


105777 


165176 


3275 


013746 


100375 




3276 


013750 


1 1 7766 


165172 


3277 


013756 


042766 


1 77600 


3278 


013764 


026627 


000004 


3279 


013772 


001013 




3280 


013774 


105777 


165144 


3281 


01 4000 


1 00375 




3282 


014002 


1 1 7746 


165140 


3283 


014006 


042716 


177600 


3284 


014012 


022627 


000021 


3285 


014016 


001366 




3286 


014020 


000750 




3287 


014022 


026627 


000004 


3288 


014030 


002407 





000001 

165274 



IS IT A <CR>? 
BRANCH IF NO 

YES. IS IT THE FIRST CHAR? 
BRANCH IF YES 
SAVE NEW SWR 

11$: ADD #6,SP ; ; CLEAR UP STACK 

14$: TYPE ,$CRLF ; ; ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI RETURN 
16$: JSR PC.STYPEC ; ; ECHO CHAR 

CHAR < 0? 
BRANCH IF YES 
CHAR > 7? 
BRANCH IF YES 
STRIP-OFF ASCII 
IS THIS THE FIRST CHAR 
BRANCH IF YES 
NO, SHIFT PRESENT 

CHAR Over to make 

ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CR><LF> 
SIMULATE CONTROL-U 



I **************************************************** ******** 

♦ THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE .TTY 
*CALL: 

; ; INPUT A SINGLE CHARACTER FROM THE TTY 
; ; CHARACTER IS ON THE STACK 
! ;WITH PARITY BIT STRIPPED OFF 











TST 


4{ SP) 


BEQ 




MOV 


'5 / c o % f^cuin 
2 \ bP J , ^aWR 


ADD 


#6 , SP 


TYPE 




CMPB 


$ INTAG , ff 1 






MOV 


ff 1 wO , v9 1 






JSR 


rv» , 9 1 T r tU 


T 


/ CD \ MRfi 






ruo 


{ OH ) , ff O / 






BIC 


Man 1 CO \ J. 




2 ( SP ) 


BEQ 


1 7$ 


ASL 


(SP) 


ASL 


(SP) 


ASL 


(SP) 


INC 


2(SP) 


BIS 


-2(SP),CSP) 


BR 


7$ 


TYPE 


. $QUES 


BR 


2QS 


LSB 





RDCHH 

RETURN HERE 



000004 
000004 
000023 



SRDCHR: 


MOV 


ISP).-(SP) 


;PUSH DOWN THE PC 




MOV 


4(SP) ,2(SP) 


;SAVE THE PS 


1$: 


TSTB 


®$TKS 


JWAIT FOR 




BPL 


IS 


;A CHARACTER 




MOVB 


@$TKB,4(SP) 


;READ THE TTY 




BIC 


#''C<177>.4(SP) 


;GET RID OF JUNK IF ANY 




CMP 


4(SP) ,#23 


; IS IT A CONTROL-S? 




BNE 


3$ 


; BRANCH IF NO 


2%% 


TSTB 


©STKS 


;WAIT FOR A CHARACTER 




BPL 


2$ 


; LOOP UNTIL ITS THERE 




MOVB 


e$TKB,-(SP) 


;GET CHARACTER 




BIC 


#"C177, (SP) 


;MAKE IT 7-BIT ASCII 




CMP 


(SP) + .iS?21 


; IS IT A CONTROL-Q? 




BNE 


2$ 


; IF NOT DISCARD IT 




BR 


IS 


;YES. RESUME 


3$: 


CMP 


4(SP) .#140 


;IS IT UPPER CASE? 




BLT 


4$ 


: BRANCH IF YES 
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08:36 PAGE 75 



SEQ 0075 



SEQ 0075 



3289 


014032 


026627 


000004 


000175 






CMP 


4(SP) ,#175 ; 


; IS IT A SPECIAL CHAR? 


3290 


014040 


003003 










BGT 


4$ ; 


; BRANCH IF YES 


3291 


014042 


042766 


000040 


000004 






BIC 


#40,4(SP) 


•.MAKE IT UPPER CASE 


3292 


014050 


000002 






4$: 


RTI 




;G0 BACK TO USER 


3293 












J 




3294 












*THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 


3295 












*CALL 








3296 














RDLIN 




; INPUT A STRING FROM THE TTY 


3297 












* 


RETURN 


HERE ; 


-.ADDRESS OF FIRST CHARACTER WILL BE ON THE 


3298 


















; TERMINATOR WILL BE A BYTE OF ALL O'S 


3299 




















3300 


014052 


01 0346 






srdlin: 


MOV 


R3,-(SP) 


•.SAVE R3 


3301 


014054 


012703 


014160 




1$: 


MOV 


#$TTYIN,R3 ; 


;GET ADDRESS 


3302 


014060 


022703 


014170 




2$: 


CMP 


#$TTYIN+8. ,R3 ; 


; BUFFER FULL? 


3303 


014064 


101405 










BLOS 


4S ; 


;BR IF YES 


3304 


014066 


104407 










RDCHR 




;G0 READ ONE CHARACTER FROM THE TTY 


3305 


014070 


1 1 2613 










MOVB 


(SP)+,(R3) • 


;GET CHARACTER 


3306 


014072 


122713 


000177 




10$: 


CMPB 


#177, (R3) 


; IS IT A RUBOUT 


3307 


014076 


001003 










BNE 


3$ 


;SKIP IF NOT 


3308 


014100 


104401 


001200 




4$: 


tYPE 


,$QUES ; 


{TYPE A '?' 


3309 


0141 04 


000763 










BR 


1$ 


; CLEAR THE BUFFER AND LOOP 


3310 


0141 06 


1 1 1337 


014156 




3$: 


MOVB 


(ft3),9$ 


JECHO THE CHARACTER 


331 1 


0141 12 


104401 


014156 








TYPE 


,9$ 




331 2 


014116 


122723 


000015 








CMPB 


#15,(R3)4. 1 


; CHECK FOR RETURN 


3313 


014122 


do 1356 










BNE 


2S ; 


; LOOP IF NOT RETURN 


3314 


0141 24 


105063 


177777 








CLRB 


-1 (R3) ; 


; CLEAR RETURN (THE 15) 


3315 


014130 


104401 


001202 








TYPE 


,$LF ; 


;TYPE A LINE FEED 


3316 


0141 34 


01 2603 










MOV 


(SP)+,R3 ; 


{RESTORE R3 


3317 


014136 


01 1646 










MOV 


(SP),-(SP) ; 


{ADJUST THE STACK AND PUT ADDRESS OF THE 


3318 


0141 40 


01 6666 


000004 


000002 






MOV 


4(SP) ,2(SP) ; 


{ FIRST ASCII CHARACTER ON IT 


3319 


014146 


012766 


014160 


000004 






MOV • 


#$TTYIN,4(SP) 




3320 


014154 


000002 










RTI 




{RETURN 


3321 


014156 


000 






9S: 


.BYTE 


; 


{STORAGE FOR ASCII CHAR. TO TYPE 


3322 


0141 57 


000 










.BYTE 


; 


{TERMINATOR 


3323 


014160 


00001 






STTYIN: 


.BLKB 


B. ; 


{RESERVE 8 BYTES FOR TTY INPUT 


3324 


0141 70 


052536 


005015 


000 


SCNTLU: 


.ASCIZ 


/*y/<15><12> 


{CONTROL »U" 


3325 


014175 


136 


006507 


000012 


SCNTLG: 


.ASCIZ 


/~G/<15><12> ; 


{CONTROL »G" 


3326 


014202 


005015 


053523 


020122 


SMSWR : 


.ASCIZ 


<15><12>/SWR a / 




3327 


014210 


020075 


000 














3328 


014213 


040 


047040 


053505 


SMNEW: 


.ASCIZ 


/ NEW » / 




3329 


014220 


036440 


000040 














3330 
3331 












SBTTL 


READ AN OCTAL NUMBER FROM 


THE TTY 


3332 














3333 












♦THIS 


ROUTINE 


WILL READ AN OCTAL 


(ASCII) NUMBER FROM THE TTY AND 


3334 












♦CHANGE IT TO 


BINARY. 




3335 












♦call: 








3336 














RDOCT 




{READ AN OCTAL NUMBER 


3337 














RETURN 


HERE • 


{LOW ORDER BITS AR| ON TOP OF THE STACK 


3338 












* 






{HIGH ORDER BITS ARE IN SHIOCT 


3339 




















3340 


014224 


01 1646 






SRDOCT: 


MOV 


(SP),-(SP) 


{PROVIDE SPACE FOR THE 


3341 


014226 


01 6666 


000004 


000002 






MOV 


4(SP),2(SP) ; 


{INPUT NUMBER 


3342 


014234 


010046 










MOV 


RO,-(SP) 5 


{ PUSH RO ON STACK 


3343 


014236 


010146 










MOV 


81, -(SP) 


{PUSH R1 ON STACK 


3344 


014240 


010246 










MOV 


R2,-(SP) 


{PUSH R2 ON STACK 
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3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3357 



014242 
014244 
014246 
014250 
014252 
014254 
014256 
014260 
014262 
014264 
014266 
014270 
014272 
014276 
014300 
014302 
014304 
014310 
014314 
014316 
014320 
014322 
014324 



104410 
01 2600 
005001 
005002 
1 1 2046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
005726 
010166 
01 0237 
012602 
012601 
012600 
000002 
000000 



000012 
014324 



OCTAL 


NUMBER FROM THE 


TTY 


RDLIN 




; :READ AN ASCIZ LINE 


MOV 


(SP)+,RO 


; ;GET ADDRESS OF 1ST CHARACTER 


CLR 


R1 


; ; CLEAR DATA WORD 


CLR 


R2 




MOVB 


(RO)+,-(SP) 


; ; PICKUP THIS CHARACTER 


BEQ 


3$ 


; ; IF ZERO GET OUT 


ASL 


R1 


; ;*2 


ROL 


R2 




ASL 


R1 


; :*4 


ROL 


R2 




ASL 


R1 


; ;*8 


ROL 


R2 




SIC 


#-C7, (SP) 


; sSTRIP THE ASCII JUNK 


ADD 


(SP)+,R1 


; J ADD IN THIS DIGIT 


BR 


2$ 


; ; LOOP 


TST 


(SP) + 


; ;CLEAN TERMINATOR FROM STACK 


MOV 


R1 ,12{SP) 


; ;SAVE THE RESULT 


MOV 


R2, SHI OCT 




MOV 


(SP)+,R2 


: :POP STACK INTO R2 


MOV 


{SP)+,R1 


; ; POP STACK INTO R1 


MOV 


(SP)+,RO 


; ;POP STACK INTO RO 


RTI 




; ; RETURN 



SEO S07S 



SHI OCT: .WORD 



[HIGH ORDER BITS GO HERE 
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SEQ 0077 



SEO 0077 



3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
341 1 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 



014326 
014332 
014340 
014344 
014350 
014352 
014360 
014366 
014374 
014376 
014400 
014402 
014406 
014410 
014414 
014420 
014424 
014430 
014432 
014434 
014436 
014440 
014442 
014444 
014446 
014450 
014454 
014456 
014462 
014464 
014466 



01 7646 

1 16637 
112637 
062716 
000406 
1 12737 
1 1 2737 
1 12737 
01 0346 
01 0446 
01 0546 
1 1 3704 
005404 
062704 
110437 
113704 
01 6605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

.**************«***jjt*****«****«***************** **************** 
*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-OIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL: 

* MOV NUM,-(SP) ; ; NUMBER TO BE TYPED 

* TYPOS ; ;CALL FOR TYPEOUT 

* .BYTE N ; ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ; ;Ma1 OR 

* ? ;1=TYPE LEADING ZEROS 

* : ;0=SUPPRESS LEADING ZEROS 

*$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR STYPOC 

*call: 



000000 
000001 
014553 
000002 

000001 
000006 
000005 



014553 

000006 
014552 
014551 
000012 



014552 
177770 



014553 
014550 



MOV 


NUM,-(SP) ; 


; NUMBER TO BE TYPED 


TYPON 




;CALL FOR TYPEOUT 


: ENTER HERE FOR TYPEOUT 


OF A 16 BIT NUMBER 


MOV 


NUM,-(SP) ! 


•.NUMBER TO BE TYPED 


TYPOC 




;CALL FOR TYPEOUT 


MOV 


®(SP),-(SP) ; 


; PICKUP THE MODE 


MOVB 


1 (SP) .SOFILL 


; LOAD ZERO FILL SWITCH 


MOVB 


(SP)+,$0M0DE+1 ; 


; NUMBER OF DIGITS TO TYPE 


ADD 


*2, (SP) ; 


; ADJUST RETURN ADDRESS 


BR 


STYPON 




MOVB 


#1 .SOFILL : 


;SET THE ZERO FILL SWITCH 


MOVB 


#6,$0M0DE+1 : 


;SET FOR SIX(6) DIGITS 


MOVB 


#5,$0CNT ; 


;SET THE ITERATION COUNT 


MOV 


R3,-(SP) ; 


;SAVE R3 


MOV 


R4,-(SP) ; 


;SAVE R4 


MOV 


R5,-(SP) ; 


;SAVE R5 


MOVB 


SOMODE-t-l ,R4 ; 


;GET THE NUMBER OF DIGITS TO TYPE 


NEG 


R4 




ADD 


#6,R4 ; 


; SUBTRACT IT FOR MAX. ALLOWED 


MOVB 


R4 , SOMODE ; 


iSAVE IT FOR USE 


MOVB 


SOFILL, R4 


;GET THE ZERO FILL SWITCH 


MOV 


12(SP) ,R5 ; 


; PICKUP THE INPUT NUMBER 


CLR 


R3 1 


;CLEAR THE OUTPUT WORD 


ROL 


R5 ; 


; ROTATE MSB INTO "C" 


BR 


3$ 


;G0 DO MSB 


ROL 


R5 ; 


-.FORM THIS DIGIT 


ROL 


R5 




ROL 


R5 




MOV 


R5,R3 




ROL 


R3 • 


;GET LSB OF THIS DIGIT 


DECS 


SOMODE • 


JTYPE THIS DIGIT? 


BPL 


7$ ; 


;BR IF NO 


BIC 


*177770.R3 ; 


;GET RID OF JUNK 


BNE 


4$ ; 


•.TEST FOR 


TST 


R4 ; 


; SUPPRESS THIS 0? 


BEQ 


5$ 


JBR IF YES 
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3424 


014470 


005204 




4$: 


INC 


R4 


; DON'T SUPPRESS ANYM0BE O'S 


3425 


014472 


052703 


000060 




BIS 


#'0,R3 


;MAKE THIS DIGIT ASCII 


3426 


014476 


052703 


000040 


5$: 


BIS 


# ' ,R3 


;MAKE ASCII IF NOT ALREADY 


3427 


014502 


1 1 0337 


014546 




MOVB 


R3.8$ 


jSAVE FOR TYPING 


3428 


014506 


104401 


014546 




TYPE 


,8$ 


;G0 TYPE THIS DIGIT 


3429 


014512 


105337 


014550 


7S: 


DECS 


SOCNT 


; COUNT BY 1 


3430 


014516 


003347 






BGT 


2$ 


;BR IF MORE TO DO 


3431 


014520 


002402 






BLT 


6$ 


;BR IF DONE 


3432 


014522 


005204 






INC 


R4 


; INSURE LAST DIGIT ISN'T A BLANK 


3433 


014524 


000744 






BR 


2$ 


;G0 DO THE LAST DIGIT 


3434 


014526 


01 2605 




6$: 


fSrtOV 


(SP)+,R5 


; RESTORE R5 


3435 


014530 


01 2604 






MOV 


(SP)-i-,R4 


; RESTORE R4 


3436 


014532 


012603 






MOV 


{SP)+,R3 


; RESTORE R3 


3437 


014534 


01 6666 


000002 


000004 


MOV 


2(SP) f 4(SP) 


;SET THE STACK FOR RETURNING 


3438 


014542 


01 2616 






MOV 


(SP)+,(SP) 




3439 


014544 


000002 






RTI 




; RETURN 


3440 


014546 


000 




8$: 


.BYTE 





; STORAGE FOR ASCII DIGIT 


3441 


014547 


000 






.BYTE 





{TERMINATOR FOR TYPE BGUTINE 


3442 


014550 


000 




SOCNT : 


.BYTE 





JOCTAL DIGIT COUNTE!^ 


3443 


014551 


000 




$0FILL5 


.BYTE 





;ZERO FILL SWITCH 


3444 


014552 


000000 






.WORD 





; NUt^aER OF DIGITS Tp TYPE 
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SEO 0079 



3445 






3446 






3447 






3448 






3449 






3450 






3451 






3452 






3453 


014554 


01 0046 


3454 


014556 


01 6600 


3455 


014562 


005740 


3456 


014564 


1 1 1000 


3457 


014566 


006300 


3458 


014570 


016000 


3459 


014574 


000200 


3460 






3461 






3462 






3463 






3464 


014576 


01 1646 


3465 


014600 


016666 


3466 


014606 


000002 


3467 






3468 






3469 






3470 






3471 






3472 






3473 






3474 






3475 


014610 


014576 


3476 


014612 


01 3230 


3477 


014614 


01 4352 


3478 


014616 


014326 


3479 


014620 


01 4366 


3480 






3481 


C14622 


01 3520 


3482 






3483 


014624 


01 3450 


3484 


014626 


01 3732 


3485 


014630 


014052 


3486 


014632 


01 4224 


3487 


014634 


01 0504 


3488 


014636 


010554 


3489 


014640 


010774 


3490 


014642 


01 1304 


3491 


014644 


01 1366 


3492 


014646 


01 1436 


3493 


014650 


01 1520 


3494 


014652 


01 1600 


3495 


014654 


01 0246 


3496 


014656 


01 0362 


3497 


014660 


01 0106 



.SBTTL TRAP DECODER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE -TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THftOUGH THE tRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED it WILL 
;*G0 TO THAT ROUTINE. 

STRAP: 



MOV 


RO,-(SP) 


;SAVE RO 


MOV 


2(SP) ,R0 


;GET TRAP ADDRESS 


TST 


-(RO) 


{BACKUP BY 2 


MOVB 


(RO),RO 


;GET RIGHT BYTE OF TRA 


ASL 


RO 


{POSITION FOR INDEXING 


MOV 


$TRPAD(RO) ,R0 


; INDEX TO TABLE 


RTS 


RO 


5 GO TO ROUTINE 



I ; THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2: MOV 
MOV 
RTI 



(SP),-{SP) 
4(SP) ,2(SP) 



; I MOVE THE PC DOWN 
; ;MOVE THE PSW DOWN 
RESTORE THE PSW 



•SBTTL TRAP TABLE 



*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
*BY THE "TRAP" INSTRUCTION. 



ROUTINE 



STRPAD: .WORD 
STYPE 
STYPOC- 
STYPOS 
STYPON 

SGTSWR 

SCKSWR 
SRDCHR 
SRDLIN 
SRDOCT 
T.WFG 
T.WRIT 
T.READ 
.BSFG 
.BSBG 
• SFFG 
.SFBG 
.RWND 
.SELDRV 
.BLKCMP 



STRAP2 
JCALL= 
;CALL= 
?CALL= 
;CALLx 



TYPE 
TYPOC 
TYPOS 
TYPON 



TRAP+1 (104401 ) 
TRAP+2(104402) 

TRAP+3 (104403) 
TRAP+4( 104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



;CALL»GTSWR 



;CALL = 
;CALL« 

; CALLS 
;CALL» 
[CALLS 
iCALL: 
i CALLS 
;9ALLs 

;CALL= 

iCALLi 
;CALL> 

[CALLS 



CKSWR 

RDCHR 

RDLIN 

RDOCT 

WFG 

WRITE 

BEAD 

BSFG 

BS|a 

SFFG 

SFBG 

REWIND 
J : CALLS 
5 J CALL- 
iiCALL* 



TRAP+5( 104405) GET SOFT-SWR SETTING 

TRAP+6( 104406) TEST fQR CHANGE IN SOFT-SWR 
TRAP+7( 104407) TTY TYPEIN CHARACTER ROUTINE 
TRAP+10( 104410) TTY TYPEIN STRING ROUTINE 
TRAP+11 (104411 ) READ AN OCTAL NUMBER FROM TTY 
TRAP+12( 104412) ROUTINE TO WRITE A FILE GAP 
TRAP+13(104413) ROUTINE TO WRITE A BLOCK OF DATA 
TRAPtl4( 104414) ROUTINE TO READ A BLOCK OF DATA 
TRAPtl5( 1Q4415) ROUTINE TO BACK SPACE A FILE GAP 
TRAP+16( 10441^) ROUTINE TO SACK SPACE A BLOCK GAP 
TRAP+1 7(104417) ftOUTINE T0 SPACE FWD A FILE GAP 
TBAP+20( 104420) ROUTINE TO SPACE FWD A BLOCK GAP 
TRAP+21 (104421 ) ROUTINE TO REWIND THE TAPE 
SELDRV TRAP+22(1044S2) ROUTINE TO SELECT THE NEXT DRIVE 
BLKCMP TRAP-t-23( 104423) COMPARE READ AND WRITE BUFFERS 
SET LOOP TRAP-»-24( 104424) SETUP TO LOOP AS PER THE TTY 
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SEQ 0080 

SEQ 0080 



3498 










.SBTTL 


POWER 


DOWN AND UP ROUTINES 


3499 


















3500 










• J ***** 






3501 










•.POWER 


DOWN ROUTINE 




3502 


014662 


012737 


015026 


000024 


$PWR0N: 


MOV 


#$ILLUP,@#PWRVEC 


; ;SET FOR FAST UP 


3503 


014670 


012737 


000340 


000026 




MOV 


#340,@#PWRVEC+2 


; ;PRI0:7 


3504 


014676 


010046 








MOV 


RO,-(SP) 


; ;PUSH RO ON STACK 


3505 


014700 


010146 








MOV 


R1 ,-(SP) 


; ;PUSH R1 ON STACK 


3506 


014702 


010246 








MOV 


R2,-(SP) 


; ;PUSH R2 ON STACK 


3507 


014704 


010346 








MOV 


R3,-(SP) 


;;PUSH R3 ON STACK 


3508 


014706 


010446 








MOV 


R4,-(SP) 


; ; PUSH R4 ON STACK 


3509 


014710 


010546 








MOV 


R5,-(SP) 


; ; PUSH R5 ON STACK 


3510 


014712 


017746 


1 64222 






MOV 


SSSWR,-(SP) 
SP,$SAVR6 


;|PUSH @SWR ON STACK 


3511 


014716 


010637 


015032 






MOV 


; ;SAVE SP 


3512 


014722 


012737 


014734 


000024 




MOV 


i¥$PWRUP.@#PWRVEC 


;;SET UP VECTOR 


3513 


014730 


000000 








HALT 






3514 


014732 


000776 








BR 


.-2 


; ;HANG UP 


3515 


















3516 












3517 










; POWER 


UP ROUTINE 




3518 


014734 


012737 


015026 


000024 


SPWRUP: 


MOV 


(S^SILLUP.WPWRVEC 


; ;SET FOR FAST DOWN 


3519 


014742 


013706 


015032 






MOV 


$SAVR6,SP 


•;GET SP 


3520 


014746 


005037 


015032 






CLR 


$SAVR6 


;WAIT LOOP FOR THE TTY 


3521 


014752 


005237 


015032 




is: 


INC 


$SAVR6 


, ;WAIT FOR THE INC 


3522 


014756 


001375 








BNE 


1$ ■ 


;0F WORD 


3523 


014760 


012677 


164154 






MOV 


(SP)+,@SWR 


;POP STACK INTO ®SWR 


3524 


014764 


012605 








MOV 


(SP)+,R5 


;POP STACK INTO R5 


3525 


014766 


012604 








MOV 


CSP)+,R4 


;POP STACK INTO R4 


3526 


014770 


012603 








MOV 


(SP)+,R3 


;POP STACK INTO R3 


3527 


014772 


012602 








MOV 


(SP)+,R2 


;POP STACK INTO R2 


3528 


014774 


012601 








MOV 


(SP)+,R1 


;POP STACK INTO R1 


3529 


014776 


012600 








MOV 


(SP)+,RO 


;POP STACK INTO RO 


3530 


015000 


012737 


014662 


000024 




MOV 


#$PWRDN,®<!(PWRVEC 


j;SET UP THE POWER DOWN VECTOR 


3531 


015006 


012737 


000340 


000026 




MOV 


^340,@il!PWRVEC-4-2 


;PRI0:7 


3532 


015014 


104401 








TYPE 




REPORT THE POWER FAILURE 


3533 


015016 


015034 






SPWRMG: 


.WORD 


$ POWER 


; POWER FAIL MESSAGE POINTER 


3534 


015020 


012716 








MOV 


(PC)+,{SP> 


; RESTART AT PWRST 


3535 


015022 


002300 






SPWRAD: 


.WORD 


PWRST 


; RESTART ADDRESS 


3536 


015024 


000002 








RTI 






3537 


015026 


000000 






SILLUP: 


HALT 




;TriE POWER UP SEQUENCE WAS STARTED 


3538 


015030 


000776 








BR 


.-2 


! BEFORE THE POWER DOWN WAS COMPLETE 


3539 


015032 


000000 






$SAVR6: 







;PUT THE SP HERE 


3540 


015034 


005015 


047520 


042527 


$P0WER: 


.ASCII 


<1 5X1 2>" POWER" 




3541 


015042 


000122 














3542 












.EVEN 
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3543 






3544 






3545 






3546 






3547 


015044 


001204 


3548 


015052 


001164 


3549 






3550 


015056 


001204 


3551 


015064 


001 124 


3552 


015072 


000000 


3553 






3554 


015074 


001204 


3555 


015102 


001210 


3556 


0151 10 


000000 


3557 






3558 


0151 12 


001204 


3559 


015120 


001164 


3560 






35S1 


015126 


001204 


3562 


015134 


000000 


3563 







001116 
000000 



001116 
001126 



001116 
001212 



001116 
001166 



DATA TABLE POINTERS FOR ERRORS 

;DATA POINTERS 

001162 DTi: .WORD SAVPC,$ERRPC,$REG0,$REG1 ,0 



SEQ 00B1 



001162 
001206 



001162 
001214 



001162 
000000 



DT2: 



001116 001 162 DT5: 



. WORD SAVPC , SERRPC , $REGO , $GDDAT . SBDDAT . BYTNUM , 

.WORD SAVPC , $ERRPC , $REGO , RCRCO , RCRC1 ,RCRC2,0 

. WORD SAVPC , SERRPC , $REGO , $REG1 , $TMPO , 

.WORD SAVPC, SERRPC, SREGO.O 
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SEQ 0082 

SEQ 00S3 



3565 



3566 










•.MESSAGES 




3567 














<CRLF>"DRIVE(S)? " 


3568 


01 51 36 


042200 


044522 




MSGDRV: 


.ASCIZ 


3569 


01 51 44 


05 1 450 


037451 


000040 








3570 


01 51 52 


00501 5 


040524 


051 503 


MSGASK: 


.ASCIZ 


<1 5X1 2> /TACS?/ 


3571 


0151 60 


000077 












3572 


01 51 62 


042526 


0521 03 


051 1 1 7 


MSGVEC: 


.ASCIZ 


/VECTOR? / 


3573 


0151 70 


000077 












3574 


01 51 72 


051 1 20 


04751 1 


044522 


MSGPRI: 


.ASCIZ 


3575 


015200 


054524 


000077 










3576 


015204 


052040 


041 501 


036523 


MTACS: 


.ASCIZ 


/ TACS"/ 


3577 


015212 


000 












3578 


01 521 3 


040 


040524 


04 1 1 04 


MTADB: 


.ASCIZ 


3579 


01 5220 


000075 












3580 


015222 


053040 


041 505 


047524 


MTAVEC: 


.ASCIZ 




3581 


01 5230 


036522 


000 










3582 


015233 


040 


051 1 20 


0475 1 1 


MTAPRI : 


.ASCIZ 




3583 


01 5240 


044522 


054524 


OUUU / D 








3584 


015246 


005015 


04551 7 


000077 


MSGOK: 


.ASCIZ 


< 1 DXi 2>/0K r/ 


3585 


01 5254 


042531 


1 001 23 




MYES: 


.ASCIZ 


/ T Ca/ ^vKUr 


3586 


01 5261 


015 


05201 2 


051 505 


MTSTDRV! 






3587 


01 5266 


044524 


04351 6 


U*f <cU*tU 








3588 


015274 


044522 


042526 


000040 








3589 


01 5302 


040440 


0421 1 6 


042040 


MANDRV: 


.ASCIZ 


/ Ahin nD Tup / 


3590 


01 531 


044522 


042526 


000040 








3591 


01 5316 


00501 5 


042524 


0521 23 


MTESTS 


.ASCIZ 


<1 3X1 2>/ Teal 


3592 


01 5324 


050040 


037503 


000 








3593 


01 5331 


01 5 


04601 2 




MLOOP: 


.ASCIZ 


^ \ (;>^i <)>/i nnp pro / 


3594 


015336 


02 1 20 


04 1 520 


0000 / / 








3595 


01 5344 


042522 


044527 


0421 1 6 


mxrwnd: 


.ASCII 


/KCNINU/ 


3596 


01 5352 


000 












3597 


01 5353 


1 27 


044522 


042524 


mxwrit: 


.ASCIZ 


/WPTTP / 

/WRITE/ 


3598 


01 5360 


000 












3599 


01 5361 


1 22 


040505 


0001 04 


MXREAD: 


.ASCIZ 


/READ/ 


3600 


01 5366 


0501 23 


041 501 


026505 


MXSFFG: 


.ASCIZ 


/CD Ar'ea.Btsm—B T 1 CaaftAD / 

/ arACc rWD^r 1 ut wAr/ 


3601 


01 5374 


053506 


026504 


044506 








3602 


01 5402 


04251 4 


043455 


0501 01 








3603 


01 54 1 


000 












3604 


01 541 1 


1 23 


040520 


042503 


MXSFBG: 


.ASCII 


/Sr«Cfc"rWD*"BLH~yAr/ 


3605 


015416 


043055 


0421 27 


041 055 








3606 


01 5424 


04551 4 


043455 


050 1 1 








3607 


01 5432 


000 












3608 


01 5433 


1 02 


041 501 


02651 3 


MXBSFG: 


.ASCI2: 


/D^CK^SrACc—r I LE""QAr/ 


3609 


01 5440 


0501 23 


041 501 


026505 








361 


01 5446 


044506 


04251 4 


043455 










A i CIA 














3612 


015457 


102 


041501 


026513 


lyiXBSBG: 


.ASCII 


/BACK-SPACE-BLK-6AP/ 


3613 


015464 


050123 


041501 


026505 








3614 


015472 


046102 


026513 


040507 








3615 


015500 


000120 












3616 


015502 


051 127 


0521 1 1 


026505 


MXWFG: 


.ASCIZ 


/WRXTE-FILE-GAP/ 


3617 


015510 


044506 


042514 


043455 








3618 


015516 


050101 


000 










3619 


015521 


102 


043125 


042506 


mbufck: 


.ASCII 


/BUFFER COMPARE/ 



TA1 1 MOTION TEST 


CZTAD-D 


MACY11 


CZTADD. 


P11 23-MAR-78 


08:34 




3620 


015526 


020122 


047503 


0501 15 


3621 


01 5534 


051 101 


000105 




3622 


015540 


04651 1 


051 120 


050117 


3623 


015546 


051 105 


043040 


040514 


3624 


015554 


020107 


042523 


052124 


3625 


015562 


0471 1 1 


000107 




3626 


015566 


04651 1 


051 120 


0501 17 


3627 


015574 


051 105 


043040 


040514 


3628 


015602 


020107 


041517 


052503 


3629 


015610 


051 122 


042105 


000 


3630 


015615 


115 


051511 


042523 


3631 


015622 


020104 


020101 


046106 


3632 


015630 


043501 


000 




3533 


015633 


1 1 1 


0521 16 


051 105 


3634 


015640 


052522 


052120 


043040 


3635 


015646 


044501 


042514 


000104 


3636 


015654 


051 120 


046505 


052101 


3637 


015662 


051 125 


020105 


042522 


3638 


015670 


042101 


020131 


041517 


3639 


015675 


052503 


051 122 


042105 


3640 


015704 


000 






3641 


015705 


104 


042111 


023516 


3642 


015712 


020124 


052123 


05011 7 


3643 


015720 


044440 


0201 16 


020101 


3644 


015726 


044506 


042514 


043440 


3645 


015734 


050101 


000 




3646 


015737 


104 


0421 1 1 


023516 


3647 


015744 


020124 


052123 


0501 17 


3648 


015752 


047440 


0201 16 


046103 


3649 


015760 


040505 


020122 


042514 


3650 


015766 


042101 


051105 


000 


3651 


015773 


102 


042101 


042040 


3652 


016000 


052101 


020101 


042522 


3653 


016006 


0421 01 


000 




3654 


01601 1 


1 1 1 


0461 14 


043505 


3655 


016016 


0461 01 


041040 


043125 


3656 


016024 


042506 


020122 


044523 


3657 


016032 


042532 


000 




3658 


016035 


103 


041522 


042440 


3659 


016042 


051 122 


051 117 


000 


3660 


016047 


123 


047510 


052122 


3661 


016054 


051040 


041505 


051 117 


3662 


016062 


000104 






3663 


016064 


040502 


020104 


0471 11 


3664 


016072 


042524 


051 122 


050125 


3665 


0161 00 


000124 






3666 


016102 


005015 






3667 


0161 04 


042524 


052123 


020040 


3668 


016112 


020040 


051 105 


047522 


3669 


0161 20 


006522 


012 




3670 


0161 23 


120 


020103 


020040 


3671 


016130 


020040 


050040 


0201 03 


3672 


016136 


020040 


020040 


052040 


3673 


016144 


041501 


020123 


020040 


3674 


016152 


052040 


042101 


006502 


3675 


016160 


000012 







) 23-MAR-70 08:36 
ASCII MESSAGES 



PAGE 83 



SEQ 00B3 



SEO 0083 



.ASCIZ /IMPROPER FLAG SETTING/ 

.ASCIZ /IMPROPER FLAG OCCURRED/ 

.ASCII /MISSED A FLAG/ 

.ASCIZ /INTERRUPT FAILED/ 

.ASCIZ /PREMATURE READY OCCURRED/ 

.ASCII /DIDN'T STOP IN A FILE GAP/ 

.ASCIZ /DIDN'T STOP ON CLEAR LEADER/ 

.ASCIZ /BAD DATA READ/ 

.ASCII /ILLEGAL BUFFER SIZE/ 

.ASCIZ /CRC ERROR/ 

.ASCII /SHORT RECORD/ 

.ASCII /BAD INTERRUPT/ 



.ASCII <tS><12> 

.ASCII /TEST ERR0R/<15><12> 



.ASCII /PC 



TACS TADB/<15X12> 



TA1 1 MOTION TEST C2TAD-D MACY1 1 

CZTADD.P11 23-MAR-78 08:34 



30A(t05a) 23-MAR-78 08:36 PAGE 04 
ASCII MESSAGES 



SEQ 0084 

SEO 0084 



3676 


016162 


005015 






3677 


016164 


042524 


052123 


020040 


3678 


016172 


020040 


051105 


047522 


3679 


016200 


020122 


020040 


020040 


3680 


016206 


020040 


020040 


020040 


3681 


016214 


054105 


052120 


042047 


3682 


016222 


020040 


041522 


023526 


3683 


016230 


020104 


020040 


054502 


3684 


016236 


042524 


005015 




3685 


016242 


041520 


020040 


020040 


3686 


016250 


020040 


041520 


020040 


3687 


016256 


020040 


020040 


040524 


3688 


016264 


051503 


020040 


020040 


3689 


016272 


040504 


040524 


020040 


3690 


016300 


020040 


040504 


040524 


3691 


016306 


020040 


020040 


052516 


3692 


016314 


041 1 15 


051105 


005015 


3693 


016322 


000 






3594 


016323 


015 


012 




3695 


016325 


124 


051505 


020124 


3696 


016332 


020040 


042440 


051122 


3697 


016340 


051117 


020040 


020040 


3698 


016346 


020040 


020040 


020040 


3699 


016354 


053440 


044522 


042524 


3700 


016362 


020040 


051040 


040505 


3701 


016370 


020104 


0200.40 


052040 


3702 


016376 


033125 


006460 


012 


3703 


016403 


120 


020103 


02004Q 


3704 


016410 


020040 


050040 


020103 


3705 


016416 


020040 


020040 


052040 


3706 


016424 


041501 


020123 


020040 


3707 


016432 


041440 


041522 


020040 


3708 


016440 


020040 


041440 


041522 


3709 


016446 


020040 


020040 


041440 


3710 


016454 


041522 


005015 


000 


3711 


016461 


015 


012 




3712 


016463 


124 


051505 


0201 24 


3713 


016470 


020040 


042440 


051 122 


3714 


016476 


051 1 17 


020040 


020040 


3715 


016504 


020040 


020040 


020040 


3716 


016512 


020040 


020040 


020040 


3717 


016520 


020040 


041040 


052131 


3718 


016526 


051505 


005015 




3719 


016532 


041520 


020040 


020040 


3720 


016540 


020040 


041520 


020040 


3721 


016546 


020040 


020040 


040524 


3722 


016554 


051503 


020040 


020040 


3723 


016562 


040524 


041104 


020040 


3724 


016570 


020040 


042514 


052106 


3725 


016576 


005015 


000 




3726 


016601 


015 


012 




3727 


016603 


124 


051505 


020124 


3728 


016610 


020040 


042440 


051 122 


3729 


016616 


051117 


005015 




3730 


016622 


041520 


020040 


020040 


3731 


016630 


020040 


041520 


020040 



.ASCII <15><12> 
.ASCII /TEST ERROR 



.ASCII /PC 



.ASCII <1S><12> 
.ASCII /TEST ERROR 



EXPT'D RCV'D BYTE/<15><12> 



TACS DATA DATA NUFIiJSER/<1SX12> 



.ASCI2 /PC 



.ASCII <15><12> 
.ASCII /TEST ERROR 



WRITE READ TU60/<15><T2> 



CRC/<15><12> 



.ASCIZ /PC 



.ASCII <15><ia> 

.ASCII /TEST ERR0R/<15><12> 



BYTES/<15><12> 



TADB LEFT/<15><12> 



.ASCIZ /PC 



TACS/<15><12> 



TA1 1 MOTION TEST CZTAD-D MACY1 1 30A( 1052) 23-MAR-78 08:36 PAGE 85 

CZTADD.P11 23-MAR-78 08:34 ASCII 8SESSAGES 



SERRPC.TACSL.O 

$ERHPC,0 

•TA11 FAILED TO RESPOND" 



SEO 0085 



SEQ §86S 



3732 


016636 


020040 


020040 


040524 






3733 


016644 


051503 


005015 


000 






3734 




016652 








.EVEN 


3735 


016652 


001116 


001220 


000000 


DT201 : 


.WORD 


3736 














3737 


016660 


001116 


000000 




DT202: 


.WORD 


3738 














3739 


016664 


040524 


030461 


043040 


EM201 : 


.ASCIZ 


3740 


016672 


044501 


042514 


020104 






3741 


016700 


047524 


051040 


051505 






3742 


016706 


047520 


042116 


000 






3743 


016713 


116 


020117 


0511 04 


EM202: 


.ASCIZ 


3744 


016720 


0531 1 1 


020105 


053101 






3745 


016726 


044501 


040514 


046102 






3746 


016734 


000105 










3747 


016736 


041520 


020040 


020040 


DH201 : 


.ASCIZ 


3748 


016744 


020040 


040524 


051503 






3749 


016752 


000 










3750 


016753 


120 


000103 




DH202 : 


.ASCIZ 


3751 












.EVEN 



"NO DRIVE AVAILABLE" 



/PC 
/PC/ 



TACS/ 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAIi-78 08:36 PAGE 86 

CZTADD.P11 23-MAR-78 08:34 READ AND I^ITE BUFFEBS AND tlMHS 



SEQ 0086 

SEQ OOSS 



























































01 7120 


000200 


-37^0 
^7^0 


A' 


K7K7 


1 7322 


VU WW 




n- 


K7Rfi 


1 7524 


00001 




n 


K777 


1 7726 


UU vU*f V 


T7K 


n 


P77K 


0201 30 


Uw w Vi£W 


T7KO 




7nAT 


02 0332 


0001 00 


•37RT 


n 


7nnfi 


0171 20 


000000 






7ni o 


1 7046 


U V WriC WW 


3765 


n' 


7016 


01 7054 


000200 


____ 


n 


7055 


1 7062 


00001 


'37fi7 




7006 


1 7070 


000040 


3768 


n 




01 7076 


000020 


„__^ 




_ - p. 


0171 04 


0001 00 




01 


J: _ 
70 


017112 


000000 






















^77^ 
T77^ 










_ _^ 






000002 






n 


7n/ifi 






'377R 


n 


7n^7 


063 




^777 


n 


7nc;n 


314 






n 








■377Q 


n 


7nc;o 


000000 




3780 












01 


_ _ . 


000002 











377 




•57nT 










3784 





7056 


377 









7057 


000 




'37Rfi 





7060 


000000 




„_„_ 










3788 


01 




000002 














3790 





7063 


1 46 




3791 


0- 


_ _ - 


231 




3792 





7065 


1 46 









7066 


000000 




3794 










3795 


01 


7070 


000002 









7070 


360 




•37Q7 




7071 


017 




3798 





7072 






3799 





7073 


017 




3800 





7074 


000000 




3801 










3802 


01 


7076 


000002 




3803 


01 


7076 


252 




3804 


01 


7077 


125 




3805 


01 


7100 


252 




3806 


01 


7101 


125 




3807 


01 


7102 


000000 





;BUFFER LINKS 

; THESE LINKS POINT TO THE STARTING ADPRESS OF THE BUFFERS 
;AND ALSO INDICATE HOW MANY BYTES TO READ Of? WRITE 



RLNK1 : 
RLNK3: 
RLNK3: 
RLNK4: 
RLNK5: 
RLNK6: 
RLNKX: 
WLNK1 : 
WLNK2: 
WLNK3: 
WLNK4: 
WLNK5: 
ijlLNK6: 
WLNKX: 



WCRC1 : 
WBUF2: 



WCRC2: 
WBUF3: 



WCRC3S 
WBUF4: 



WCRC4: 
WBUF5: 



WCRC5S 



RBUF1 ,128. 

R8UF2,128. 

RBUF3,6. 

RBUF4,32. 

RBUFS.IS. 

RBUF6,§4. 

RBUF1 ,0 

WBUF1 .128. 

WBUF2.123. 

WBUF3,8. 

WBUF4,32. 

WBUFS.IS. 

WBUF6.64. 

fe^BUFX.t 



.BYTE 
.BYTE 
.BYTE 
.BYTg 
.W0R£> 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.WORD 



-B11001100 
"B001 10011 
"B11001100 
"BO011OO11 




"B11111111 

"BQfOOO&OO 
"B11111111 
"BOOOOOOOO 



"B10011901 
"BfllOOIIO 
"B10O11OO1 
"i011 00110 



•B11110000 

"Booooiin 

"811110000 
"BO00O1111 



"B10101010 
"B01O1O1O1 
'B1O1O1O10 
"B01010101 



JQRC ST0WE F®i WBUF1 



;CRC STORAGE F§|l WBUFS 



;Cm STORAGE F@fi !^BUF3 



;CBC STORAGE FOR WBUF4 



;mc STORAGE FOR »BUFS 



TA11 MOTION TEST 


C2TAD-0 MACY11 


30A(1052) 


23-MAR»7d 08:36 PAGE 87 


C2TADD 


PI 


23-MAR-78 


08:34 




READ AND WRITE BUFFERS ANO LimS 


3808 
















3809 





17104 


000001 




WBUF6: 






3810 





7104 


377 






.BYTE 


"B11111111 


381 1 





7105 


377 






.BYTE 


"811111111 


3812 





7106 


000 






.BYTE 


"BOOO0O000 


3813 





171 07 


000 






.BYTE 




3814 





7110 


000000 




1«ICRC6: 


.WORD 


;CRG 


3815 
















3816 





71 12 


000004 




WBUFX: 






3817 





7112 


000 






.BYTE 





3818 





7113 


000 






.BYTE 





3819 





71 14 


000 






.BYTE 





3820 





71 15 


000 






.BYTE 





3821 





7116 


000000 




WSRCX! 


.WORD 





3822 
















3823 
















3824 





7120 


000202 




RBUF1 : 


.BLKB 


130. 


3825 





7322 


000202 




RBUF2: 


.BLKB 


130. 


3826 





7524 


000202 




RBUF3: 


.BLKB 


130. 


3827 





7726 


000202 




RBUF4: 


.BLKB 


130. 


3828 


020130 


000202 




RBUFS: 


.BLKB 


130. 


3829 


020332 


000202 




RBUF6: 


.BLKB 


139. 


3830 
















3831 






020534 




LASTAODRESS»s 




3832 
















3833 






000001 






.END 





SEQ 0087 



SEQ 0087 



;CRC STORAGE FOR !slBUF@ 



TA11 MOTION TEST C2TAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 89 

CZTADD.P11 23-MAR--78 08:34 CROSS REFERENCE TABLE — USER SYMBOLS 



SEO 0088 



SEQ 



ASKADR 


007532 


1 109 


2329# 








ASKDRV 


007422 


1106 


2297* 


2320 






ASKKEY 


001246 


892A' 


1 196* 


1 268 


221 8 


2717 


A20CT 


010022 


2404# 


2^437 


2448 






BADINT 


012356 


1200 


1260 


2869 


2889 


2895^ 


BEGINX 


002036 


817 


1 103# 


1 139 


1 141 


1 189 


BEGIN1 


001450 


814 


1022# 








BEGIN2 


001502 


815 


1029# 








BEGINS 


001510 


816 


1028 


1Q31# 






BEGIN4 


001516 


1033# 










BGNCMN 


001522 


1025 


1027 


1030 


1032 


1034# 


BITO = 


000001 


751i!^ 










BITOO = 


000001 


741# 


751 


794 


21 16 


2118 


BIT01 = 


000002 


740# 


750 


793 


21 18 


2837 


BIT02 = 


000004 


739* 


749 


792 






B1T03 2 


000010 


738# 


748 


791 






B1T04 = 


000020 


737if 


747 


790 






B1T05 = 


000040 


736» 


746 


789 






BIT06 = 


000100 


735M 


745 


788 






BIT07 = 


000200 


734# 


744 


787 


21 16 


21 18 


BIT08 = 


000400 


733ft 


743 


786 






BIT09 s 


001000 


732# 


742 


785 


2167 


2241 


BIT1 = 


000002 


750* 










BIT10 = 


002000 


731# 


784 


2225 






BIT11 = 


004000 


730^ 


783 


21 74 






BIT12 = 


010000 


729^ 


782 








BIT13 = 


020000 


728# 


781 


2232 






BIT14 = 


040000 


727(5' 


780 


2149 


2837 




BIT15 = 


100000 


726i!' 


779 


1238 






BIT2 = 


000004 


749# 










BIT3 = 


000010 


748# 










BIT4 = 


000020 


747(1' 










BITS = 


000040 


746(1? 










BITS = 


000100 


745f 










BIT7 = 


000200 


744^' 










BIT8 = 


000400 


743# 










BIT9 = 


001000 


742# 










BLKCMPs 


104423 


1295 


1308 


1321 


1334 


1339 






1452 


1467 


1482 


1486 


1493 






1558 


1562 


1576 


1590 


1603 






1741 


1760 


1776 


1793 


1798 






1954 


1959 


1964 


1969 


1997 


BPTVEC= 


000014 


758fS' 










BSBG « 


104416 


1306 


1337 


1383 


1389 


1418 






1498 


1503 


1505 


1510 


151 1 






1556 


1588 


1608 


1661 


1680 


BSFG = 


104415 


1319 


1355 


1370 


1464 


1574 






1893 


1894 


1895 


1924 


1946 






2042 


2043 


2044 


2049 


2050 


BSFGSB 


01 3054 


824 


3077# 


3078 


3085 




BYTNUM 


001206 


877* 


2500* 


2507* 


3550 




CHKADR 


002060 


1105 


1 108 


1127(^ 






CHKDRV 


002140 


1165# 










CKSWR X 


104406 


2139 


2206 


2240 


3483# 




CR 


000015 


666(^ 


3181 


3191 






CRCERRs 


040000 


780# 











1352 
1500 
1610 
1818 
2002 

1419 
1528 
1738 
1628 
1951 
2051 



1357 
1507 
1623 
1837 
2033 

1448 
1534 
1739 
1718 
1952 
3081 



1372 
1513 
1630 
1855 
2039 

1449 
1539 
1757 
1719 
1957 
3490^ 



1385 
1517 
1646 
1873 
2046 



1391 140b 

1530 1536 

1 663 1 C82 

1898 1921 

2053 2981 



1479 1480 1489 

1541 1546 1548 

1774 1994 3491 # 

1758 1773 1791 

1992 1993 3031 



1421 
1543 
1702 
1926 
3039 

1491 
1553 

1853 
2036 



1436 
1550 
1721 
1948 
3496# 

1496 
1555 

1870 
2037 
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SEQ 0089 



SEQ 0089 



ORG. WD 


012222 


2539* 


2567 


2592* 


2625 


2825 


2846* 


2853# 








CRLF = 
CURDRV 


000200 
001250 


667# 
e93if 


1091 
1212* 


3152 
1214 


3191 
1221* 


3568 

1224* 


3585 
1226 


1279 


2470* 






DDISP ^ 
DH1 


177570 
016102 


673* 
918 


855 
925 


1062 
932 


939 


946 


953 


960 








DH2 


016162 


967 


3676# 


















DH201 


016736 


1003 


3747# 


















DH202 


016753 


1008 


3750# 


















DH3 


016323 


981 


36QA0 


















DH4 


016461 


988 


371 1# 


3726(i' 
















DH5 


016601 


974 


995 




2224* 












DISPLA 


001 142 


855# 


1062* 


1070* 


2188« 












DISPRE 
DO . CMD 


000174 
012224 


811* 
2521 


1070 
2544 


2568 


2593 


2626 


2650 


2671 


2686 


2707 


2735 


DO.CRC 


012102 


2562 


2612 


2818^ 


2482« 
1165 














DRIVE 
DRVKEY 


001236 
001240 


889^ 
890(5' 
2481 


1209* 
891 


2469 
1023* 


1178 


1199 


1217 


1223 


1261 




DRVPNT 


001244 


891 <Sf 


1179* 


1199* 


1208 


1227* 












DSWR = 177570 
DTI 015044 


o72M 
920 


354 
927 


1061 
934 


941 


948 


955 


962 


3547il! 






DT2 


015056 


969 


3550# 


















DT201 


016652 


1004 


3735f5' 


















DT202 


016660 


1009 


3737(5? 


















DT3 


015074 


983 


3554# 


















DT4 


015112 • 


990 


3558# 


















DT5 


015126 


976 


997 


3561 # 
















EMTVEC= 


= 000030 


761 # 


1045* 


1046* 
















EMI 


015540 


917 


3622# 


















EM10 


015773 


966 


365 1# 


















EMI 1 


01601 1 


973 


3654# 


















EMI 2 


016035 


980 


3658(!? 


















EM13 


016047 


987 


3660# 


















EM14 


016064 


994 


3663# 


















EM2 


015566 


924 


3626* 


















EM201 


016664 


1002 


3739# 


















EM202 


016713 


1007 


3743# 


















EM3 


015615 


931 


3630# 


















EM4 


015633 


938 


3633(!' 


















EMS 


015654 


945 


3636# 


















EM6 


015705 


952 


364 1# 


















EM7 


015737 


959 


3646# 


















ERROR 
ERRVEC 


= 100000 
= 000004 


779# 
754# 


1059 


1060* 


1071* 


1127* 


1133* 


2154 


2155* 


2157* 


2160* 


EXAM 


006464 


11 66 


1170 


1175 


2103# 














EXIT 


007522 


2316 


2321 if 


1274# 
















FATAL 


002702 


1236 


1255 


2697 
2602 














FGAP 
FLAGS 


= 004000 
012014 


783# 
2527 


2638 
2552 


2661 
2574 


2634 


2656 


2677 


2692 


2713 


2725 


FUNCTI 


= 000016 


795# 


2865 


2880 
















FUNCO 


= 000002 


793^1 


795 


















FUNC1 


= 000004 


792# 


795 


















FUNC2 
GNS 


s 000010 

a ****** U 


791# 
810 


795 
1090 


1277 


3476 


3477 


3478 


3479 


3481 


3483 


3484 
3497 
2736 


3488 


3489 


3490 


3491 


3492 


3493 


3494 


3495 


3496 


GO 


« 000001 


794^ 


1249 


2522 


2545 


2594 


2651 


2672 


2687 


2708 
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3062 
3481 # 



2865 
2569 







2952 


'2974 


3006 


3032 


mTSWR = 


1 04405 


1 085 


3094 


3107 


3118 




uu^ w 


1 076 


1 078 


1089 


1091^ 




1 20 1 


1 242 


2761 


2769* 


2778# 


T 


A A A A 1 1 


664# 


31 5Q 


3191 






AAAAOA 




221 1 


256S 


2627 


• WT PKI- 


AAA 1 AA 
UUU I WW 


788# 


1 249 


2522 


254S 








287 1 








A AAA A 




1 043* 


1 044^ 




TCMCO 


A A 1 yl OA 


1 000# 








ACT An 


020534 


3831 # 








LEADERS 


A'JAAAA 


781 ^ 


2 1 2 'S 


2638 


2731 
















AAAA 1 O 


^665# 


31 85 


3191 






A 1 OA Afi 


2760* 


2767<' 


2777<? 




LOOP 


A A7/3ilft 
UU f '4*4D 


2304# 


■ 23! 8 






} oopj^g 


0066 1 4 


1 206« 


21 47# 


2455* 


2457'^ 




0121 00 


2793 


2796 


SSI'S' 


2812^ 


M ANDR V 




1 225 


3589# 






(ViANUA I 




1 1 85 


1 1 93^ 






KiAXCNT 




1 238* 


1 242* 


1243* 


1244* 


iVlDU r w!\ 


015521 


2493 


361 9# 






MCI iwr 


007304 


2257# 


2493* 


2520* 


253§« 


MLOOP 


Allf^O 


2442 


3593^ 










2330 


3570^ 






iVl^OUrt V 


01 51 36 


2297 


3568^ 






sji c n T n 


002024 


1 079 


1 091 # 


11 98 








2377 


.35g4# 






I 


A1R1 70 


2353 


3574^ 






M c c V/ P r 

lYIOVJ V si W 


01 51 62 


2344 


3572# 






M T ACS 


1 5204 


2365 


3576# 






MT ADB 




236S 


357a# 








01 5233 


2374 


3582^ 






MT AVEC 


1 5222 


2371 


3580^ 










2429 


3591 ^ 






M T C T n D 
ml D 1 UK 


01 526? 


1213 


3586^ 






Ma DSDvi 




2670 


361 2# 






MY Rccn 




2649 


3608i^ 








A1 R-SK* 


2582 


3599# 








A1 R"?^4 
Ailf ( 1 




3595^ 






afi Y c c rail- 




2706 


3604* 






iVl X S F F G 


015366 


2S85 


3gQ0# 






MXWFG 


015502 


2520 


361 6^ 






iVIXWRI T 




2535 


3597# 








1 5254 


2386 


3585^ 








AA75;a'5 
UU / ^u«& 


2307 


231 1 


231 5# 




■^OTA 


007460 


2305 


2308^ 






NOTB 


007472 


2309 


2312# 






lOTLGL 


007514 


2302 


2313 


2319# 


2322 


OFFLINE 


001000 


785# 


2112 


2638 




OK 


002272 


1 194 


1196# 






PIRO = 


177772 


671^ 








PI ROVE = 


000240 


765# 








PRO 


000000 


638# 








PR1 


000040 


639# 








PR2 « 


000100 











2f08 



1271® 2im 



2685* 2706* 2724* 



TA11 MOTION TEST 


C2TAD-D 




30A(1052) 


23-MAR 


"78 08^36 PAGE 


92 










Si@ 0091 




C2TADD. 


P11 23-MAR-78 


08:34 




CROSS REFERENCE 


TABLE 


USER SYI^BOLS 












sm 


PR3 


000140 


691 # 


























PR4 s 


000200 


692i!f 


























PR5 


000240 


693# 


























PR6 


000300 


694* 


























PR? 


000340 


695ii' 


























PS 


177776 


668# 


669 


^202* 


1250* 


1254« 




2S48* 


2551* 


2570* 






2629'!' 


26S2$ 






2673* 


268S« 


2709* 


2737* 


3863«< 


















PSW = 


177776 


669# 


























PWRST 


002300 


11 9B^ 


3535 
























PWRVECs 


000024 


760# 


1049* 


1050* 


3502* 


3533'!' 




3518* 


3S30« 


3S31« 










RBUF1 


017120 


3757 


3763 


3824* 






















RBUF2 


017322 


3758 


3825* 
























RBUF3 


017524 


3759 


3826* 
























RBUF4 


017726 


3760 


3827* 
























RBUF5 


020130 


3761 


3828* 
























PBUF6 


020332 


3762 


3829* 
























RCRCO 


001210 


878/^ 


2587* 


3554 






















l^CRCl 


001212 


879* 


2625* 


3554 






















RCRC2 


001214 


880# 


2628* 


2533«i' 


3554 




















RDCHR a 


104407 


2142 


2378 


3304 


3484# 




















RDLIN « 


104410 


2299 


2430 


2443 


3345 


3485# 


















RDOCT = 


10441 1 


2331 


2345 


2354 






















RDSUB 


012522 


820 


2968* 


2972 


2980 




















SEAO « 


104414 


1294 


1307 


1320 


1333 


1338 


I35t 


13S® 


1371 


1384 


1390 


1404 


1405 


1420 






1435 


1451 


1466 


1481 


1485 


1492 


1499 


1506 


isia 


1516 


1529 


1535 


1542 






1549 


1557 


1561 


1575 


1589 


isoa 


1609 


1$22 


1629 


1645 


1662 


1681 


1701 






1720 


1740 


1759 


1775 


1792 


1797 


1817 


1636 


1854 


1872 


1897 


1920 


1925 






1947 


1953 


1958 


1963 


1968 


199S 


2001 


2032 


2633 


2045 


2052 


2977 


3035 






3489j^ 


























READY s 


000040 


789* 


2108 


2213 


2765 . 


2792 


2877 


2921 


2953 


2S7S 


3007 


3033 


3063 




KESVEC== 


000010 


755* 


























REWINDa 


104421 


1240 


1266 


1291 


1293 


1304 


1317 


133© 


1332 


1348 


1350 


1366 


068 


1381 






1400 


1403 


1415 


1430 


1433 


1445 


1481 


1476 


1526 


1571 


1585 


1599 


1601 






1619 


1621 


1639 


1643 


1655 


1659 


1672 


1S77 


1S91 


1697 


1711 


1715 


1730 






1735 


1750 


1754 


1769 


1785 


1789 


1807 


1814 


1827 


1B33 


1846 


1849 


1864 






1867 


1882 


1889 


1907 


1917 


1935 


1943 


1370 


198S 


2011 


2024 


3494# 




RGPBLK 


012702 


822 


3026* 


3030 


3038 


3044 


















- LNKX 


017006 


2977 


2982 


303S 


3040 


3102* 


3763f 
















RLNK1 


016756 


1294 


1295 


1307 


1309 


1320 


1322 


1333 


1335 


1338 


1340 


1351 


1353 


1356 






1358 


1371 


^373 


1384 


1386 


1404 


1420 


1422 


1481 


1463 


1S12 


1514 


1529 






1531 


1557 


1559 


1575 


1577 


1589 


1591 


1602 


1604 


1622 


1624 


1662 


1664 






1720 


1722 


1740 


1742 


1759 


1761 


177S 


1777 


1792 


1794 


1953 


1955 


1958 






1960 


2052 


2054 


2586 


3757f 


















E5LNK2 


016762 


1390 


1392 


1405 


1407 


1435 


1437 


14S1 


1453 


1466 


1468 


1485 


1487 


1506 






1508 


rsis 


1518 


1535 


1537 


1S09 


1611 


1529 


1531 


1645 


1647 


1681 


1683 






1797 


1799 


1897 


1899 


3758# 


















PLNK3 


016766 


1492 


1494 


1S61 


1563 


1817 


1819 


1836 


183@ 


1354 


1856 


1872 


1874 


1963 






1965 


1996 


1998 


2045 


2047 


3759# 
















■ NK4 


016772 


1499 


1501 


1542 


1544 


1701 


1703 


1947 


1949 


1968 


1970 


3750# 






> LNK5 


016776 


1549 


1551 


1920 


1932 


1925 


1927 


2001 


aco3 


2038 


2040 


37®1# 






NK6 


017002 


2032 


2034 


3762# 






















'V.'DA 


001260 


895 


896* 


2477 






















-JOB 


001262 


897# 


2474 
























■ .'OFLG 


001256 


B95# 


1237'» 


12S4* 


2474* 


g4?T* 


2729 


2733* 


2881* 










3S47 






B7S& 


225S'* 


a492«' 


2519** 


iS34* 


2S01«» 


2648<^ 
















3SS® 


3SS4 


3550 


3561 
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SEQ 0093 



SAVRl 
SELDRVs 



SERV 
SETBUF 
SETLOO= 
SFBG = 



SFFG 



SFFGSB 

STACK = 

STALL 

START 

STKLMTs 

SWR 



SWREG 

SWO '. 

SWOO : 

SW01 = 

SW02 s 

SW03 s 

SW04 s 

SW05 = 

SW06 = 

SWO? = 

SW08 = 

SW09 = 

SW1 s 

SW10 s 

SW1 1 = 

SW12 = 

SW13 = 

SW14 s 

SW15 = 

SW2 s 
SW3 

SW4 a 

SW5 

SW6 

SW7 

SW8 

SW9 

TACSH 

TACSL 

TADBH 
TADBL 
TAPRIO 
TAVEC 



010244 
104422 



012340 
013106 
104424 
104420 

104417 



013000 
001100 
001264 
002312 
177774 
001140 



000176 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
.100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
001222 
001220 

001226 
001224 
001234 
001230 



2435* 
1235 
1460 
1749 
2951 
2565 
2945 
2145 
1369 
1871 
1644 
1891 
2025 
823 
659# 
898^!^ 
1197 
6700 
BSAft 
2232 
3105 
812# 
723# 
713# 
712^? 
7t1<Sf 
710<!^ 
709# 
708# 

706# 
705# 
704A' 
722# 
703# 
702# 
701# 
700# 
699# 
698# 
721# 
720# 
719# 
718# 
717# 
7l6iy 
715# 
714(!^ 
884# 
QQZU 

3735 
886# 
885# 
888# 
887il? 

2889^ 



2458 


2460* 






















1263 


1290 


1303 


1316 


1329 


1347 


1365 


1380 


1399 


1414 


1429 


1444 


1475 


1525 


1570 


1584 


1598 


1618 


1638 


1654 


1671 


1690 


1710 


1729 


1 768 


1 784 


1806 


1826 


1845 


1863 


1881 


1906 


1934 


1977 


2010 


2923 


2973 


3005 


3031 


3061 


3080 


3495# 














2873 


2888# 




















2999 


3090^ 






















34974^ 
























1434 


1450 


1465 


1679 


1699 


1700 


1717 


1737 


1756 


1834 


1850 


1868 


1962 


3042 


3493# 


















1660 


1678 


1698 


1716 


1736 


1755 


1790 


1796 


1815 


1816 


1835 


1890 


1892 


1896 


1918 


1919 


1944 


1945 






1 990 


1 991 


1 995 


2000 


2026 


2027 


2028 


2029 


2030 


3065 


349215' 




3056^ 


3060 


3069 


















1 041 


291 8 


2946 


2968 


2978 


3000 


3026 


3036 


3056 








1258* 


1259« 


2802 


2803 






































1039 


1061* 


1063 


1069« 


1083 


1215 


2116 


2118 


2149 


2167 


2174 


S2S5 


2237 


2241 


24S6 


2483 


2501 


2641 


2762 


2798 


2866 


3099 


3096 


3098 


3109 


3116 


3201 


3238'» 


3510 


3523* 










1069 


1083 


3092 


3105 


3116 


3201 


3214 













723 
722 
721 
720 
719 
718 
717 
716 
715 
714 



2501 
2641 
2762 
2798 
1215 

2483 



2866 
2466 



2339* 


2340* 










1129 


1203 


2103 


2336« 


3339 


3366 


2342* 


2343* 










1204 


2338* 


2342 


3369 


3920 


2948 


1201 


2364« 


2375 








1026 


1200* 


1201* 


1348$ 


1260* 


2350» 



2919 2947 2969 3001 3027 3057 
2970 3002 3028 3058 

2352* 2372 2S6S* 3613* 2869* 2873* 
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SEQ 0093 



SEO 0093 



TBITVE= 


000014 


756# 










TIMERR= 


002000 


784if 


2638 








TKVEC = 


000060 


763iS? 










TPVEC = 


000064 


764# 










TRAPVE= 


000034 




1047* 


1048* 






TRTVEC= 


000014 


7570 










TR.REQs 


000200 


7Q7^ 


2765 


2792 






TST1 


002762 


1230 


1269 


1288# 






TSTIO 


003342 


1379 


1397# 








TST11 


003406 


1398 


1412# 








TST12 


003450 


1413 


1427# 








TST13 


003512 


1428 


1442# 








TST14 


003556 


1443 


1458# 








TST15 


003620 


1459 


1473# 








TST16 


004012 


1474 


1523# 








TST17 


004170 


1524 


1568*' 








TST2 


003016 


1289 


1301(f 








TST20 


004226 


1569 


1582# 








TST21 


004254 


1583 


1596# 








TST22 


004342 


1597 


1616# 








TST23 


004420 


1617 


1636# 








TST24 


004464 


1637 


1652# 








TST25 


004532 


1653 


1669# 








TST26 


004606 


1670 


1688<M 








TST27 


004666 


1689 


1708# 








TST3 


003052 


1302 


1314# 








T.ST30 


004740 


1709 


%727H 








TST31 


005016 . 


1728 


1747# 








TST32 


005070 


1748 


1766# 








TST33 


005134 


1767 


1782# 








TST34 


005216 


1783 


1804^ 








TST35 


005274 


1805 


1824# 








TST36 


005350 


1825 


1843# 








TST37 


005422 


1844 


1861# 








TST4 


003106 


1315 


1327# 








TST40 


005474 


1862 


1879# 








TST41 


005564 


1B80 


1904# 








TST42 


005672 


1905 


1932# 








TST43 


006042 


1933 


197S# 








TST44 


006162 


1976 


2008# 








TST5 


003156 


1328 


1345# 








TST6 


003226 


1346 


1363# 








TST7 


003266 


1364 


1378^ 








TYPE a 


104401 


1079 


1 198 


1213 


1214 


1225 






2256 


2258 


2268 


2272 


2277 






2371 


2374 


2377 


2384 


2386 






3259 


3308 


3311 


3315 


3428 


TYPERR 


007276 


2234 


2255# 








TYPOC = 


104402 


2282 


2367 


2370 


2373 


3376 


TYPON = 


104404 


3479# 










TYPOS = 


104403 


3478# 










T.BLKC 


010362 


2490# 


3496 








T . BSBG 


011366 


2669^ 


3491 








T.BSFG 


011304 


2648# 


3490 








T.READ 


010774 


2581 «!f 


3489 








T . RWND 


011600 


2723# 


3494 









1226 1275 1379 3078 2079 2227 2235 2255 

2285 2297 2319 2330 2344 2353 3365 2368 

2429 2442 3155 3313 3213 3316 3229 3240 

3476^^ 3532 

3215 3477# 



TA11 MOTION TEST 



CZTAD-D MACY11 30A{1052) 23-MAR-78 08:36 PAGE 95 



CZTADD. 


.PI 1 23-MAR-78 


08:34 




CROSS 


REFERENCE 


TABLE 


gSER 


SYMBOLS 


T .SELD 


010246 


2465^* 


3495 












T.SETL 


010106 


2428# 


2439 


3497 










T.SF8G 


011520 


2705# 


3493 












T.SFFG 


01 1436 


2684# 


3492 












T ,WFG 


01 0504 


2519# 


3487 












T .WRIT 


01 0554 


2534# 


3488 












UNIT s 


■■ 000400 


786^^ 


21 07 


2473 


2476 








WAITFL 


011716 


2524 


2547 


2571 


2597 


2630 


2653 


2674 


WAITKE 


001 254 


BSAff 


2^50* 


2600* 


2764* 


2773 


2870* 


2ggQi$ 


WBUFX 


017112 


31 1 


3770 


381 6* 










WBUF1 


01 7046 


3764 


3774** 












WBUF2 


01 7054 


3765 


3781 # 












WBUF3 


01 7062 


3766 


3788# 












WBUF4 


01 7070 


3767 


3795jj> 












WBUF5 


01 7076 


3768 


3802# 












WBUF6 


01 71 04 


3769 


3809^ 












WCRCX 


017116 


3821 # 














WCRC1 


017052 


3779# 














WCRC2 


017060 


37864* 














WCRC3 


017066 


3793# 














WCRC4 


017074 


3800/¥ 














WCRC5 


017102 


3807/S' 














WCRC6 


017110 


3814# 














WFG s 


1 0441 2 


1241 


1 267 


1573 


1 587 


1 606 


1 626 


1641 






1 771 


1787 


1809 


1811 


1813 


1830 


1 832 






1916 


1939 


1942 


1981 


1984 


1987 


201 3 






3009 


3487* 












WFGSUB 


012364 


818 


2918* 


2922 


2931 








WGBLOP 


012614 


3000if 


3004 


3016 










WGPBLK 


012610 


821 


2999# 












WLNKX 


017042 


2955 


2983 


301 2 


3041 


31 03* 


3770* 




WLNK1 


017012 


1292 


1297 


1305 


1310 


1318 


1323 


1 331 






1374 


1382 


1387 


1401 


1416 


1423 


1431 






1532 


1560 


1572 


1578 


1586 


1592 


1 600 






1673 


1692 


1712 


1 723 


1731 


1743 


1 751 






1828 


1847 


1865 


1883 


1 908 


1936 


1956 


WLNK2 


017016 


1388 


1393 


1402 


1408 


1417 


1 432 


1 438 






1504 


1509 


1519 


1533 


1538 


1607 


1612 






1684 


1694 


1714 


1 733 


1753 


1 772 


1 788 


WLNK3 




1 900 


1 909 


1937 


1 980 




3765^ 




017022 


1490 


1495 


1554 


1564 


1676 


1695 


1 734 


WLNK4 




1869 


1875 


1887 


1 91 1 


1938 


1966 


1 982 


017026 


1497 


1502 


1540 


1545 


1696 


1704 


1912 


WLNK5 


017032 


1547 


1552 


1914 


1923 


1928 


1941 


1985 


WLNK6 


017036 


1915 


1986 


2022 


2035 


3769* 






WLDOP 


012444 


2946# 


2950 


2959 








WRITE « 


104413 


1292 


1305 


1318 


1331 


1349 


1367 


1 382 






1432 


1446 


1447 


1 462 


1463 


1477 








1 547 


1 554 


1 572 


1 586 






1 620 






1675 


1676 


1692 


1694 


1695 


1696 


1712 






1770 


1772 


1786 


1788 


1808 


1810 


1812 






1865 


1366 


1869 


1883 


1885 


1887 


1908 






1937 


1938 


1940 


1941 


1979 


1980 


1982 






2018 


2020 


2022 


2955 


3012 


3488# 




WRTLOC= 


010000 


782* 


2114 


2638 






WRTSUB 


012440 


819 


2945* 













SEQ 0094 



SEO 0094 



1657 
1851 
2015 



1336 
1446 
1605 
1762 
1961 
1447 
1627 
1800 

1812 
1999 
1940 
2004 



1388 
1490 
1627 
1714 
1828 
1909 
1983 



1674 
1884 
2017 



1341 
1462 
1620 
1770 
1979 
1454 
1632 
1810 

1820 
2016 
1950 
2020 



1401 
1497 
1640 
1731 
1829 
1911 
1985 



1693 
1886 
2019 



1349 

1477 
1625 
1778 
2012 
1463 
1642 
1829 

1831 
2048 
1971 
2041 



1402 
1504 
1642 
1733 
1831 
1912 
19S6 



1713 
1888 
2021 



1354 
1484 
1640 
1786 
2055 
1469 
164o 
1848 

1839 

3766(6' 

1983 

3768# 



1416 
1527 
1656 
1734 
1847 
1914 
2012 



1732 
1910 

3023 



135S 
1515 
1656 
1795 
S586 
1478 
1658 
1866 

1852 



1417 
1533 
1658 
1751 
1848 
1915 
2014 



1752 
1913 
2927 



1367 

1 527 

1665 

1808 

3764<Sf 

1488 

1675 

1885 

1857 



1431 
1540 
1673 
1753 
1852 
1936 
2016 



TA1 1 MOTION TEST 


CZTAD-D 


MACY11 


30A(1052) 


23-MAR 


-78 08:36 PAGE 


96 


CZTADD. 


PI 1 23-MAR-78 


08:34 




CROSS REFERENCE 


TABLE — 


USER SYMBOLS 


XBSBG = 


000010 


773* 


2672 












XBSFG = 


000006 


772* 


2651 












XREAD = 


000004 


771* 


2594 


2627 










XRWND = 


000016 


776* 


1239 


1265 


2736 


2924 


2952 


2974 


XSFBG = 


000014 


775* 


2708 












XSFFG = 


000012 


774* 


2687 












XWFG = 


000000 


769* 


1249 


2522 










XWRITE= 


000002 


770* 


2545 


2569 










SAUTOB 


001 134 


851* 


1087* 


3209 


3330 








SBDADR 


001122 


846* 














SBDDAT 


001 1 26 


848* 


2513* 


3550 










$BELL 


001174 


871* 


2227 


2253 










SCHARC 


013444 


3157* 


3167* 


3174 


3183« 


3188# 






SCKSWR 


013450 


3201* 


3483 












SCMTAG 


001 100 


834* 


1036 


1037 


1045 


1051 


1052 


1053 


$CM1 = 


000002 


866* 


867# 


B6&0 










$CM2 = 


000004 


866* 


867* 


868* 










$CM3 = 


000002 


864* 


866 












$CM4 = 


000001 


868* 


869# 












SCNTLG 


014175 


3212 


3325* 












SCNTLU 


0141 70 


3229 


3324# 












$CRLF 


001201 


873# 


2235 


2253 


2255 


22S8 


2277 


3156 


SDOAGN 


006442 


2074 


2081 


2087# 










SENDAD 


006432 


1077 


1 142 


1192 


1282 


2083* 


2248 




SENDCT 


006406 


1051 


2076* 












SENDMG 


006451 


2078 


2091* 












SENULL 


006446 


2079 


2090* 












$EOP 


006352 


2009 


2066* 












SEOPCT 


006400 


1051* 


2073* 


2077 










SERFLG 


001 103 


837* 


2130 


2163 


2165 


2171* 


2191 


2222* 


SERMAX 


001 1 15 


843* 


1054* 


2165 


2187* 


2191 






SERROR 


007046 


1045 


2205* 












SERRPC 


001 1 16 


844* 


2229* 


2230* 


2231 


2253 


3547 


3550 


SERRTB 


001270 


913* 


2266 












SERTTL 


001 1 12 


841* 


2228* 


2253 










SESCAP 


001 1 72 


870* 


1053* 


1236* 


1289* 


1302* 


1315* 


1328* 






1443* 


1459* 


1474* 


1524* 


1569* 


1583«' 


1597* 






1728* 


1748* 


1767* 


1783* 


1805* 


1825»f 


1844* 






2186* 


2220* 


2244 


2246 


a253 


2617 


2618* 


$FILLC 


001156 


862^!^ 


3160 


3191 










SPILLS 


001 155 


861* 


3191 












SGDADR 


001120 


845* 














SGDDAT 


001 1 24 


847* 


2515* 


3550 










$GET42 


006422 


2080* 














SGTSWR 


013520 


3213* 


3481 












$HD = 


000000 


592 














SHI OCT 


014324 


3362* 


3367# 












SICNT 


001 1 04 


838* 


2178* 


2179 


2181* 


21§1 






SILLUP 


015026 


3502 


351 S 


3537# 










SINTAG 


001135 


852j^ 


3241 


3330 










SITEMB 


001 1 14 


842* 


2231* 


2253 


2261 








SLF 


001202 


874* 


2253 


3191 


3315 


3334 






SLPADR 


001 106 


839* 


1055* 


1228* 


2169* 


2184* 


2189 


2191 


SLPERR 


001 1 10 


840* 


1056* 


2169 


2185* 


2191 


2243 


2454* 






3078* 














SMAIL = 




1073 


1083 


2184 


2237 


3144 







SEQ 0095 



1346* 
1617* 
1862* 

2622* 



2451* 
2S22* 



1364* 

1637* 
1880* 
3079* 



2453* 
2950* 



3062 



2485* 

3558 3561 3735 3737 



1379* 

1653* 
1905* 



1393* 1413* 
1670* 1689* 
1933* 1976* 



SEQ 0095 



1428* 
1709* 

2009* 



3004* 3030* 3060* 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-iyiAR-78 08:36 PAGE 97 

CZTADD.P11 23-MAR-78 08:34 CROSS REFERENCE TABLE — USER SYMBOLS 



SiQ 0096 

SEQ 0098 



$MNEW 
































SMSWR 


01 4202 






3326^ 
























smxcnt 








1 207* 


1219* 


2182 


2191 




















001 1 54 




860# 


31 62 


3191 




















1470# 


^KtUIT CT — 
»NW 1 3 1 = 


UUUUU 1 




1 285^ 


1 298^ 


1 31 1 # 


1324* 


1342(^ 


1360^ 


1375# 


1394j^ 


1409# 


1424# 


1439^ 


1455# 






1 565# 


1579# 


1593<^ 


1613# 


1633^ 


1649# 


1666# 


1685# 


1705# 


1724# 


1744# 


1763# 








i77q« 




1 821 # 


1 840# 


1858# 


1876^ 


1901# 


1929# 


1972# 


2005# 








$OCNT 






3400* 


3429* 


3442# 






















cnMnr»c 

3>UIV1UUC. 






3395* 


3399* 


3404 


3407* 


3418* 


3444# 
















SOVER 


007032 








21 70 


21 80 


21 88# 




2191 
















UU 1 1 wU 




^835^ 


1 229 


2070* 


2071 * 


2090 


2176 














C DDUIC D 






3533 


3540^ 
























5brWKMU 






3535^ 


























^ DliJDr\Kl 








35Q2# 


3530 






















t DWDMC 
WKmu 






3533# 


























<£ DItID! iD 


n-i ^7*54 




351 2 


351 8i^ 


























001 200 








231 9 


2384 


3191 


3259 


3308 


3324 












»HUUnK 


013732 




3272^ 


3484 
























































ton 1 T SI 


014052 




3300^^ 


3485 


























1 4224 




3340# 


3486 






























3293# 


























3>Kt:uAU 


001 1 60 






























$RE60 


001 1 62 




OAR* 


9907* 


221 6 


3547 


3550 


3554 


3558 


3561 












$REG1 


001 1 64 






3208* 
2208* 


3547 


3558 




















$RTNAD 


006444 
































****** 




3487 






























■ 


3487 


























$SAVR6 


01 5032 






_j. _ 


3520* 


3521 * 


3539j^ 


















$SCOPE 


006570 






i 
























$SETUPs 


0001 37 












1 047 


1 049 


1 051 


1052 


1053 


1 055 


1 077 


1 080 


2068 






21 39 


99nR 

2206 


22 


99^4B 


3196 


3330 
















$SS = 


000000 




1 285# 


























$STUP 3 


1 77777 






























SSVLAD 


007004 






























$SWR a 


1 C7AAA 
1 o /www 




582# 


592 


642 


643 


644 


645 


646 


647 


648 


869 


870 


871 


1052 






1 053 


1 055 


1 056 


1 289 


1302 


1315 


1 328 


1346 


1364 


1379 


1398 


1413 


1428 












1 474 


1 524 


1 5gg 


1 583 


1 597 


161 7 


1637 


1653 


1 670 


1 689 


1 709 








! -^p 


17l« 


1 757 


1 783 


1 805 


1825 


1 844 


1 3S2 


1880 


1 905 


1 933 


1 976 


2009 










9nfia 


2082 


2088 


2090 


21 31 


21 32 


2133 


21 34 


2135 


2149 


21 61 


2163 










91R^ 


21 72 


2173 


21 74 


21 85 


21 88 


21 91 


21 97 


21 98 


21 99 


2200 


2201 










99^9 
2232 


2237 


2241 


2253 


2483 


3536 














SSwRMKs 


000000 




OK 


























$T IMES 


001 1 70 




ORQJ< 


•ai la* 


2069* 


91 72* 

^999 


2179 


21 82* 


2191 




















DK7« 








3276 


3282 


















001 1 44 




oIr^ 


2140 


31 94 




3219 


3243* 


3274 














«TMPn 


001 1 66 




868* 


261 5^ 


3558 
























W w ww*»3 




582^ 


592 


1285 


1 289^ 


1298 


1302^ 


131 1 


1315# 


1324 


1 328^ 


1342 


1346# 


1360 










1 375 


1 379^ 


1 394 


1 398 # 


1409 


1413# 


1424 


1428^ 


1439 


1443# 


1455 


1459^ 








1470 


1474# 


1520 


1524j^ 


1565 


1569^ 


1579 


1583# 


1593 


1597# 


1613 


1617# 


1633 








1637# 


1649 


1653# 


1666 


1670# 


1685 


1689# 


1705 


1709# 


1724 


1728^ 


1744 


1748# 








1763 


1767# 


1779 


1783# 


1801 


1805# 


1821 


1825*f 


1840 


1844# 


1858 


1862# 


1876 








1880^1* 


1901 


1905# 


1929 


1933^ 


1972 


1976i? 


3005 


2009j|! 










$TPB 


001152 




859^ 


3180* 


3191 






















STPFLG 


001157 




863# 


3138 


3191 






















$TPS 


001150 




BSSif 


3178 


3191 























TA11 MOTION TEST CZTAD-D MACYll 3°^ lO^SLcof^^f ^fiSER^lYMB^ 

CZTADD.P11 23-KIAR-78 08:34 CROSS REFERENCE TABLE USER SYMBOLS 



SEQ 0097 



SEQ OOS? 



STRAP 014554 
$TRAP2 014576 
STRP = 000025 



STRPAD 

STSTNM 

STTYIN 

$TYPBN= 

$TYPDS= 

$TYPE 

STYPEC 

$TYPEX 

$TYPOC 

STYPON 

STYPOS 

SXTSTR 

$$GET4= 

SOFILL 

$40CAT= 



014610 
001102 
014160 



013230 
013400 
013446 
014352 
014366 
014326 
006630 
000000 
014551 



1047 

3464# 

3468# 

3489# 

3458 

836# 
3301 
3480 
3480 
3138# 
3159 
3184 
3398# 
3397 
3393# 
2152# 
2082# 
3394* 
2149 

806# 
3194 
3831 



3453# 

3475 

3477# 

3490# 

3475* 

1205* 

3302 


3478# 
3491 # 

2068* 
3319 


3479(l» 
3492# 

2130 

3323)5! 


3480^ 
3493J? 

2t83« 


3481 
3494# 

2188 


3482# 
3495# 

2191 


3483 
3496# 

2224 


3484# 
3497# 

2253 


3485# 
3498# 


34884^ 


3487# 


34S3# 


3468 

3166 

3186 

3477 

3400# 

3478 


3476 
3173 

3189(Sf 

3479 


3178# 


3179 


3245 
















3398* 
2234 

81 0# 
3323<P 


3408 

833<i' 
3324 


3443^ 

875 

3330 


1040 
3514 


t055 
3538 


1056 
3734# 


2090 
3824# 


2093 
382S# 


2191 
3826# 


2253 
3827 # 


2288# 
3828# 


3191 

3829# 



. ABS. 020534 000 



ERRORS DETECTED: 

DSKZ : CZTADD , DSKZ : CZTADD. SE0«»DSKZ!C2TADD. P1 1 
run-time: 20 14 1 SECONDS 
RUN-TIME ratio: 213/36=5.8 
CORE USED: 23K (45 PAGES) 

DOCUMENT pages: 97 



